StringList-Objekte wie freigeben?

[shmia]

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;