TInterfacedObject wird nicht freigegeben

[Sir Rufo]

Zitat von TiGü:

Delphi-Quellcode:

var YourObject : ...;

if YourObject.Type.BeginsWith.I then
  Object := nil;

if YourObject.Type.BeginsWith.T then
  Object.Free;

Du hast da noch was vergessen

Delphi-Quellcode:

TMyClass = class( TInterfacedObject )
end;

var
  MyInstance : TMyClass;
  MyInterface : IInterface;

// das geht
MyInstance := TMyClass.Create;
MyInstance.Free;

// das knallt
MyInstance := TMyClass.Create;
MyInterface := MyInstance; // Referenz-Zähler auf 1
MyInterface := nil; // Referenz-Zähler auf 0 => Instanz wird freigeben
MyInstance.Free; // rumms