Speicherleck bei Verwendung von TInterfacedPersistent?

[Flocke]

Die Vermutung von Dax war richtig: TInterfacedPersistent hebelt die Referenzzählung aus.

TInterfacedObject ist direkt für die Verwendung des Interfaces gedacht, also
Variable := TMeineKlasse.Create(...) as IMeinInterface; Danach sollte Delphi sich um alles weitere kümmern, insbesondere sollte man mit der Basisklasse nicht .Free aufrufen - das geht alles über die Referenzzählung.

Bei TInterfacedPersisted ist es genau umgekehrt: es erfolgt keine Referenzzählung. Man muss ein solches Objekt also explizit mit .Free der Basisklasse freigeben. Wichtig ist hierbei aber: Delphi kennt die Implementierung der Basisklasse nicht! Daher produziert das Beispiel von Dax einen Fehler, wenn Delphi nach dem .Free implizit versucht, die Methode ._Release des Interfaces aufzurufen (dessen Basisobjekt ja schon freigegeben ist). Ein einfaches "SBParam := nil;" vor dem "temp.Free;" sollte den Fehler beheben.

Eigentlich sollte der Vorschlag mit der Ersetzung der Referenzzählung funktionieren. Die implizite Verwaltung der Referenzzählung durch Delphi ist allerdings eine vertrackte Sache, bei der ich auch schon oft auf die Nase geflogen bin.