Referenz auf Interface-Methode

[Relicted]

Hallo zusammen,

folgendes Problem: ich würde gerne eine Referenz auf eine Methode (ohne Parameter) eines Interfaces an eine Klasse weitergeben.
Mit der "procedure of object"-Methodik geht das wohl leider nicht. Jemand eine Idee wie man das bewerkstelligen kann?

[Der schöne Günther]

Entweder stehe ich genau so feste wie du auf dem Schlauch oder da blockt tatsächlich irgendetwas. Ich würde den Typ von "procedure of object" zu "reference to procedure" ändern, das ist in System.SysUtils bereits als TProc vordefiniert. Dass ergibt mittels anonymer Prozedur zwar etwas Overhead, aber dein Gedöns müsste somit noch nicht einmal das Interface implementieren.

Delphi-Quellcode:

uses System.SysUtils;

type
   IMyInterface = interface
      procedure doStuff();
   end;

   TMyObject = class(TInterfacedObject, IMyInterface)
      procedure doStuff();
   end;

procedure TMyObject.doStuff();
begin
   WriteLn('I''m doing stuff');
end;

var
   instance: IMyInterface;
   procedureReference: TProc;
begin
   instance := TMyObject.Create();

   procedureReference := TMyObject(instance).doStuff;

   procedureReference :=
      procedure()
      begin
         instance.doStuff;
      end;
end.

[Mavarik]

Ich würde entweder das ganze Interface übergeben oder die Methode als Interface erzeugen und dein Interface von diesem Interface ableiten oder die Implementation von beiden Interfaces...

[freimatz]

Zitat von Relicted:

Mit der "procedure of object"-Methodik geht das wohl leider nicht. Jemand eine Idee wie man das bewerkstelligen kann?

Nimm die "reference to ...."- Methodik.

(Siehe auch: https://stackoverflow.com/questions/...d-reference-to)