Speicherleck bei verschachtelten Objekten

[LeoDD]

Leider nicht. Ich bin jetzt schon etwas weitergekommen, das ist vielleicht für andere auch gut zu wissen, die sich mit ähnlichen Problemen herumschlagen.

Eine TObjectList, deren Objekte selbst Objekte beinhalten, gibt diese verschachtelten Objekte nicht wieder frei, wenn diese manuell instanziiert werden.

Beispiel:

TObjectList1 beinhaltet Zeiger auf Records, in dem ein Objekt vom Typ TIcon vorkommt. Wird das TIcon des Records instanziiert, muss es später (z.B. beim Destroy) manuell freigegeben werden mit Free. Das letztendliche Dispose kann man sich sparen, da das die Liste dann selbst übernimmt.

Hier nochmal eine Klarstellung von meinem Problem:

EurekaLog meckert über Speicherlecks in diesem Codeabschnitt:

Delphi-Quellcode:

constructor TTC7AutoStart.Create;
begin

  inherited;

  if not InitAll then Halt;
  
  WinDir := GetWindowsDir;
  SysDir := GetSystemDir;
  WinDrive := GetWindowsDrive;
  ActualUser := GetActualUser;

  ASSnapshotDir := GetSnapshotDir;

  IconCache := TTC7IconCache.Create;
  AutostartLocations := TObjectList.Create; //<- Speicherleck
  Encyclopedia := TTC7Encyclopedia.Create; //<- Speicherleck

  Self.Win64Bit := IsWow64;

end;

In meinem Destructor sieht es so aus:

Delphi-Quellcode:

destructor TTC7Autostart.Destroy;
begin

  IconCache.Free; //Objektinstanzen freigeben von TIcon
//  AutostartLocations.Free; //<- wenn das aktiv ist, gibts eine Schutzverletzung bei Programmende
//  Encyclopedia.Free; //<- wenn das aktiv ist, gibts eine Schutzverletzung bei Programmende

end;

Irgendwo muss ich doch die beiden Objekte freigeben