TStringList mit Objekten: Free oder FreeAndNil?

[PeterPanino]

In einer TStringList mit OwnsObjects: Werden mit FreeAndNil auch die Objekte der Listenelemente freigegeben, oder reicht dazu Free aus?

Delphi-Quellcode:

MyStringList := TStringList.Create;
MyStringList.OwnsObjects := True;
try
  while DerTagLangIst do
    MyStringList.AddObject(AString, TMyObj.Create);
finally
  //MyStringList.Free;
  FreeAndNil(MyStringList); // besser?
end;

[mkinzler]

FreeAndNil() setzt zusätzlich zum aufruf von .Free() noch die Referenzvariable für die Stringliste auf Nil.

[PeterPanino]

Zitat:

Zitat von mkinzler

FreeAndNil() setzt zusätzlich zum aufruf von .Free() noch die Referenzvariable für die Stringliste auf Nil.

Danke, genau das steht auch in der Onlinehilfe. Werden die Objekte der Listenelemente (MyObj) bei MyStringList.Free bzw. FreeAndNil(MyStringList) auch freigegeben oder muss man die vorher "manuell" freigeben?

Etwa so?:

Delphi-Quellcode:

MyStringList := TStringList.Create;
MyStringList.OwnsObjects := True;
try
  while DerTagLangIst do
    MyStringList.AddObject(AString, TMyObj.Create);
finally
  for i := 0 to MyStringList.Count - 1 do
    FreeAndNil(MyStringList.Objects[i]);

  //MyStringList.Free;
  FreeAndNil(MyStringList); // besser?
end;

[DeddyH]

Mein Delphi 2007 kennt zwar noch kein OwnsObjects bei Stringlisten, aber ich mutmaße einmal, dass es sich so verhält wie bei einer TObjectlist, d.h. beim Freigeben der Liste werden auch die enthaltenen Objekte "entsorgt".

[edit] Um sicherzugehen kannst Du Dir doch einmal eine Testanwendung schreiben und ReportMemoryLeaksOnShutdown auf true setzen. Wenn ohne manuelle Freigabe keine Speicherlecks gemeldet werden, habe ich wohl recht. [/edit]

[guidok]

Zitat:

Zitat von PeterPanino

Werden die Objekte der Listenelemente (MyObj) bei MyStringList.Free bzw. FreeAndNil(MyStringList) auch freigegeben oder muss man die vorher "manuell" freigeben?

Delphi-Quellcode:

  FreeAndNil(MyStringList);

entspricht

Delphi-Quellcode:

  MyStringList.Free;
  MyStringList := nil; //Das ist der einzige Unterschied

Damit sollte es klar sein, dass es für die Objekte in der StringList keinen Unterschied macht.

Wie DeddyH schon vorgeschlagen hat: Probiere es aus, wobei ich vermute, dass die Objecte manuell freigegeben werden müssen.

[DeddyH]

Zitat:

Zitat von guidok

wobei ich vermute, dass die Objecte manuell freigegeben werden müssen.

Welchen Sinn sollte die Property aber dann haben?

[Apollonius]

Meiner Erinnerung zufolge gibt die TStringList die Objekte nicht frei. Der Sinn hinter dem Objects-Konstrukt ist schlicht, dass man ein Dictionary aufbauen kann. Bei der TListBox z.B. finde ich es sehr nützlich, zu jedem Eintrag noch Nutzdaten hinterlegen zu können.

[DeddyH]

Es geht aber um OwnsObjects.

[Apollonius]

Oha. :oops: Immer diese neuen Delphi-Versionen. :mrgreen:

[Chemiker]

Hallo PeterPanino,

Delphi-Quellcode:

for i := 0 to MyStringList.Count - 1 do 
    FreeAndNil(MyStringList.Objects[i]);

(das wird so nicht funktionieren, weil sich Count bei jedem Schleifendurchlauf ändert.)
Sorry, das ist Blödsinn siehe Apollonius.

Delphi-Quellcode:

for i := MyStringList.Count-1 downto 0 do 
begin
  FreeAndNil(MyStringList.Objects[i]); 
end;

Bis bald Chemiker

[DeddyH]

Alternative:

Delphi-Quellcode:

while MyStringList.Count > 0 do
begin
  FreeAndNil(MyStringList.Objects[0]);
end;

Aber nun wäre es interessant zu wissen, ob man sich diese Gedanken durch das OwnsObjects sparen kann, das wäre ja mal eine sinnvolle Erweiterung.

[Apollonius]

Ähm, durch das Freigeben des i-ten Objekts wird die Liste nicht kleiner. Das geschieht nur durch Delete oder Remove.

[himitsu]

Delphi-Quellcode:

destructor TStringList.Destroy;
begin
  // In the event that we own the Objects make sure to free them all when we
  // destroy the stringlist.
  if OwnsObjects then
  begin
    for I := 0 to FCount - 1 do
      GetObject(I).Free;
  end;

[DeddyH]

Apollonius, Du hast recht, völlig vertorft. Aber nachdem ich nun den Source sehe, fühle ich mich bestätigt, die Liste kümmert sich selbst um die Freigabe.

[edit] Nickname falsch geschrieben, sry [/edit]

[PeterPanino]

Das soll mir eine Lehre sein, um in Zukunft immer zuerst die Primärquellen zu Rate zu ziehen ... ;-)

[DeddyH]

Dafür sind die ja dabei ;)