Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Verständnisfrage: Interface und dazugehöriges Objekt

  Alt 23. Aug 2012, 18:10
In dem gezeigten Code ist es so, daß hier nicht beide Referenzen "gleichzeitig" verwendet werden.
(oftmals macht man sowas, wenn auf eine Funktion des Objekts zugreifen will, welche man "vergessen" hat ins Interface aufzunehmen)
Dafür wird im betreffenden Projekt gerne das gemacht.
Wobei ich dabei auch immer irgendwie Bauchschmerzen habe.

Delphi-Quellcode:
TMyClass = class;

IMyInterface
  function GetObject : TMyClass;
end;

TMyClass = class(TInterfacedObject, IMyInterface)
  function GetObject : TMyClass;
end

...

function TMyClass.GetObject : TMyClass;
begin
 Result := self;
end;
  Mit Zitat antworten Zitat