Klonen eines Interfaces

[perpeto1234]

Zitat von mjustin:

Das hier sollte funktionieren:

Delphi-Quellcode:

function TMyClass.Clone: IMyInt;
var
  MyClass: TMyClass;
begin
  MyClass := TMyClass.Create;
  MyClass.fA := Self.fA;
  MyClass.fB := Self.fB; 
  Result := MyClass
end;

(siehe https://stackoverflow.com/a/8383009/80901)

müsste aber "var MyClass: IMyInt" sein, sonst gibts Probleme mit der Referenzzählung, oder nicht?