Ich habe viele Jahre lang Delphi 7 verwendet.
Vor wenigen Monaten bin ich auf XE5 umgestiegen.
Seit geraumer Zeit nutze ich Generics-Listen.
Heute hatte ich das Gefühl dass meine App etwas Speicher leakt, also habe ich FastMM in den Debug Mode aktiviert und hab tatsächlich den Leak (und auch andere die damit zusammenhängen) angezeigt bekommen.
Ich habe eine eigene Listen-Klasse erstellt:
DataList = class(TObjectList<TDataItem>)
Im Create() der Klasse alloziere ich verschiedene Objekte, z.B.
FCryptoLib := TCryptographicLibrary.Create(nil);
Im Destroy() gebe ich den Speicher wieder frei:
FCryptoLib.Free;
Dachte ich zumindestens bis heute. Wenn eine Liste nicht mehr gebraucht wird dann mache ich ein
myDataList.Free;
Ich hab angenommen dass das Free() -> Destroy() aufruft (und damit den Speicher für die Lib freigibt).
FastMM Debug zeigte mir jedoch dass es nicht der Fall ist und FCryptoLib nicht freigegeben wird.
Wenn ich statt dessen...
myDataList.Destroy;
direkt aufrufe hat FastMM nichts mehr zu meckern.
Ich hab mir also angeschaut was im Free() gemacht wird:
Delphi-Quellcode:
procedure TObject.Free;
begin
// under ARC, this method isn't actually called since the compiler translates
// the call to be a mere nil assignment to the instance variable, which then calls _InstClear
{$IFNDEF AUTOREFCOUNT}
if Self <> nil then
Destroy;
{$ENDIF}
end;
Und zu meinem Erschrecken stelle ich fest dass Destroy wirklich nicht mehr aufgerufen wird!
Ich schaute mir die Funktion nochmals unter Delphi 7 an:
Delphi-Quellcode:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
Und alles noch da wie ich es kannte.
Kann mir bitte jemand erklären wieso das geändert wurde!? Ich würde mal behaupten es gibt mehr Leute wie mich die davon nichts wissen und alles mögliche schön mit .Free() freizugeben versuchen und gleichzeitig ein eigenes Destroy() in Klassen verwenden.