Prozedur aufrufen

[Tryer]

Zuerst brauchst Du eine Deklaration des übergebenen Prozedurtyps:

Delphi-Quellcode:

type
  TMyProc = procedure(const Value: string);

Damit besteht dann die Möglichkeit den übergebenen Pointer auszuwerten:

Delphi-Quellcode:

procedure Entgegennehmen(ProcPtr: Pointer);
var
  MyProc: TMyProc;
begin
  @MyProc := ProcPtr;
  MyProc('42');
end;

MfG,
Tryer