Speicherverwaltung bei Objektliste

[alcaeus]

Hallo messie,

das TObjectList-Objekt musst du auf jeden Fall wieder freigeben. Das hier:

Delphi-Quellcode:

for i := 0 to 10 do
begin
  SomeObjList := TObjectList.Create();
  for j := 0 to 5 do
    SomeObjList.Add(TForm1.Create());
  DoSomething();
end;

erzeugt z.B. ein huebsches Speicherleck

Du hast in diesem Fall mehrere Moeglichkeiten:

1. Du erzeugst die ObjectList in jedem Schleifendurchgang, und gibst sie dort auch wieder frei:
   
   Delphi-Quellcode:

   for i := 0 to 10 do
   begin
     SomeObjList := TObjectList.Create();
     for j := 0 to 5 do
       SomeObjList.Add(TForm1.Create());
     DoSomething();
     SomeObjList.Free();
   end;

2. Du erzeugst die ObjectList einmal, gibst sie erst nach der Schleife wieder frei, und loeschst sie am Schleifenbeginn:
   
   Delphi-Quellcode:

   for i := 0 to 10 do
    SomeObjList := TObjectList.Create();
   begin
     SomeObjList.Clear();
     for j := 0 to 5 do
       SomeObjList.Add(TForm1.Create());
     DoSomething();
   end;
   SomeObjList.Free();

   Diese Variante ist definitiv performanter, da du die Liste nicht jedesmal rauswirfst und neu erstellst.

Falls du die Objekte wirklich nur brauchst, solange die ObjectList existiert, kannst du den aOwnsObjects-Parameter beim Constructor verwenden. Gibst du dort ein True mit, so gilt die ObjectList als Besitzer der hinzugefuegten Objekte, und gibt diese bei einem Clear() oder Free() wieder frei. So musst du dich nicht um eventuelle ungueltige Referenzen bzw. Objektleichen im Speicher kuemmern.

Greetz
alcaeus