TStringList mit Objekten: Free oder FreeAndNil?

[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 ;)