Unterschiedliche Objekte in einer Liste speichern

[Neutral General]

Zitat:

Zitat von himitsu (Beitrag 1330364)

Auch bei OwnsObjects=True kann man Free selber machen. :roll:

TObjectList.Delete <> TObjectList.Remove

Wie kommst du darauf?
Ich habs extra grade mal getestet, aber sowohl Delete als auch Remove ruft bei OwnsObjects = true den destructor auf:

Delphi-Quellcode:

type
  TTest = class
  public
    Dummy: Integer;
    destructor Destroy; override;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var objLst: TObjectList;
    testObj: TTest;
begin
  objLst := TObjectList.Create(true);

  testObj:= TTest.Create;
  objLst.Add(testObj);

  objLst.Remove(testObj);
  //objLst.Delete(0);
end;

destructor TTest.Destroy;
begin
  Dummy := 123; // Breakpoint
  inherited;
end;

[himitsu]

Ups, falscher Befehl. :oops:

TObjectList.Delete(Index), TObjectList.Remove(Instance) <> TObjectList.Extract(Instance)