Zitat:
Delphi-Quellcode:
function TComponent._Release: Integer;
begin
if FVCLComObject = nil then
Result := -1 // -1 indicates no reference counting is taking place
else
Result := IVCLComObject(FVCLComObject)._Release;
end;
Nein, TComponent wird niemals über eine Interface-Referenz freigegeben.
TComponent wird vorwiegend innerhalb der
VCL verwendet und Diese gibt ausschließlich ihre Instanzen über Free frei,
da es z.B. keine Weak-Referenzen für Objekte gibt, welche bei Freigabe auf nil gesetzt werden.
Es wird maximal das in TComponent gekapselte Interface freigegeben, wenn RefCount auf 0 fällt.
z.B. bei sowas wie
TXMLDokument TVCLAutoObject oder TActiveFormControl (spezielles TActiveXControl), wo die eigentliche Funktion in ein Interface weitergeleitet wird. (siehe IVCLComObject)