[XE2] Live Bindings

[Thom]

Vielleicht sollte man den Aufruf korrekt durchführen?

Delphi-Quellcode:

procedure Test(i: IInterface);
begin

end;

var
  o: TInterfacedObject;
begin
  o := TInterfacedObject.Create;
  Test(o as IInterface); //<- RefCount wird automatisch erhöht
  //Objekt "lebt" noch!
end;