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!!!

markieren

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:

markieren

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.

TObjectlist -> OwnsObjects -> FastMM4. Frage zur freigabe

TObjectlist -> OwnsObjects -> FastMM4. Frage zur freig

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f

Forumregeln

shmia Registriert seit: 2. Mär 2004 5.508 Beiträge Delphi 5 Professional	#2 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 29. Okt 2009, 16:35 Falsch: destructor Free; Richtig: destructor Destroy;override; Niemals das Override beim Destructor vergessen!!! Niemals vergessen im Destructor inherited aufzurufen!!! markieren Delphi-Quellcode: destructor TTestKlasse1.Destroy begin list.Free; inherited; // immer letzte Anweisung im Destructor end; Andreas
	Zitat

Jackie1983 Registriert seit: 12. Mär 2007 486 Beiträge	#3 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 29. Okt 2009, 16:48 super, danke.
	Zitat

Jackie1983 Registriert seit: 12. Mär 2007 486 Beiträge	#4 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 29. Okt 2009, 17:41 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?
	Zitat

sx2008 Registriert seit: 15. Feb 2008 Ort: Baden-Württemberg 2.332 Beiträge Delphi 2007 Professional	#6 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 29. Okt 2009, 20:01 Free macht gegenüber Destroy eine zusätzliche Prüfung: markieren 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. fork me on Github
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#7 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 29. Okt 2009, 20:17 Sofern die Referenz ge"nil"t wurde, sonst kracht es trotzdem. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Jackie1983 Registriert seit: 12. Mär 2007 486 Beiträge	#8 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 30. Okt 2009, 05:41 ok verstanden, thx
	Zitat

Blup Registriert seit: 7. Aug 2008 Ort: Brandenburg 1.429 Beiträge Delphi 10.4 Sydney	#10 Re: TObjectlist -> OwnsObjects -> FastMM4. Frage zur f 30. Okt 2009, 07:29 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.
	Zitat