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
Erst wenn man dreimal auf Holz klopfen will, stellt man fest, dass die Welt nur noch aus Plastik und Aluminium besteht.