Procedure Problem

[Der_Unwissende]

Na an sich war doch der Ansatz von DGL-Luke gar nicht so falsch.

Delphi-Quellcode:

type
  TMyProc = procedure(int : Integer) of object;

  TMyProcInvoker = class(TObject)
    public
      procedure doFoo(int : Integer);
  end;

  TMyClass = class(TObject)
    public 
      mp : TMyProc;
  end;

implementation

procedure TMyClass.FormCreate(Sender: TObject);
var buffer : TMyProcInvoker;
begin
  buffer := TMyProcInvoker.Create;
  self.mp := buffer.doFoo;
end;

[edit]
ein end vergessen!
[/edit]