TObjectlist -> OwnsObjects -> FastMM4. Frage zur freigabe

[Jackie1983]

Servus

ich habe zwei klassen.

Delphi-Quellcode:

  TTestKlasse1 = class(TObject)
    var1 : string;
    var2 : integer;
    list : TObjectlist;
    Constrcutor Create;  //<- erstellt list
    Destructor Free; //<- freigeben list
  end;

  TTestklasse2 = class(TObject)
    list2 : TObjectlist;
    Constrcutor Create;  //<- erstellt list2, list2.OwnsObjects := true
    Destructor Free; //<- freigeben list2.free
  end;

Die klasse TTestklasse2 wird erstellt. In list füge ich ein paar Objekte von TTestKlasse1 hinzu.

Wenn ich jetzt das free von TTestklasse2 aufrufe und dort nur schreibe list2.free sind die listen aus der TTestKlass noch vorhanden laut FastMM4. Habe ich zum Beispiel TTestKlasse1 10 mal hinzugefügt habe ich 10 TObjectlist als speicherfresser.

Muss ich doch die list2 durchgehen und dann für jedes objekt free aufrufen so das die objektlist freigegeben wird?

Mfg

[shmia]

Falsch:
destructor Free; Richtig:
destructor Destroy;override; Niemals das Override beim Destructor vergessen!!!
Niemals vergessen im Destructor inherited aufzurufen!!!

Delphi-Quellcode:

destructor TTestKlasse1.Destroy
begin
   list.Free;
   inherited;  // immer letzte Anweisung im Destructor
end;

[Jackie1983]

super, danke.

[Jackie1983]

dann habe ich aber noch ne frage, was soll am besten verwendet werden?
Habe in alle klassen oder objekte die ich freigebe immer free benutzt noch nie destroy.

Wo benutze ich jetzt was?

[DeddyH]

Wenn Du eine Klasse ableitest, überschreibst Du den Destruktor namens Destroy. Zum Freigeben von Objekten benutzt Du Free bzw. FreeAndNil.

[sx2008]

Free macht gegenüber Destroy eine zusätzliche Prüfung:

Delphi-Quellcode:

procedure TObject.Free;  // aus Unit System
begin
  if Self <> nil then
    Destroy;
end;

Man darf also Free auch dann aufrufen, wenn das Objekt gar nicht existiert.

[DeddyH]

Sofern die Referenz ge"nil"t wurde, sonst kracht es trotzdem.

[Jackie1983]

ok verstanden, thx

[Jackie1983]

aber noch ein kleines Problem habe ich. Habe jetzt alle meine Speicherfresser gefunden und beseitigt, es waren bestimmt 40

Wenn ich eine Klasse habe die von TThread abgeleitet wurde und ich rufe bei der klasse FreeAndNil(MeinThread) auf bleibt er im Destroy bei inherited stehen. Bestimmt habe ich was vergessen, nur was

[Blup]

Der Destructor von TThread ruft intern Terminate auf, dadurch wird Terminated auf True gesetzt.
Anschließend wartet er bis der Thread beendet wurde.

Deine Aufgabe ist es im Execute des Threads regelmäßig Terminated zu prüfen und die Methode wenn erforderlich zu verlassen.