Also ich habe mir für diesen Zweck eine kleine Hilfsfunktion geschrieben,
die ich immer wieder aus der Schublade ziehen kann, wenn ich sie brauche:
Delphi-Quellcode:
{**************************************************************************
* NAME: FreeTStringsObjects
* DESC: free all Objects attached to a TStrings Object
* PARAMS: [-]
* CREATED: 13-10-2005
* CHANGED: 00-00-2005
*************************************************************************}
procedure FreeTStringsObjects(sl: TStrings);
var
i: Integer;
o: TObject;
begin
for i := sl.Count-1 downto 0 do
begin
o := sl.Objects[i];
o.Free;
end;
end;
PS: Schleifen, die auf 0 runterzählen sind einen Tick schneller als hochzählende Schleifen.
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeTStringsObjects(MyStringList);
MyStringList.Free;
end;