Thema: Delphi Prozedur aufrufen

Einzelnen Beitrag anzeigen

Tryer

Registriert seit: 16. Aug 2003
200 Beiträge
 
#2

Re: Prozedur aufrufen

  Alt 16. Apr 2004, 04:58
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
  Mit Zitat antworten Zitat