Delphi指针语法

只是使用 @MyProcedure

注意它必须有正确的调用约定(可能是 stdcall ).

SELF 参数。

class static 方法的行为与通常的过程/函数类似。

http://docwiki.embarcadero.com/RADStudio/en/Methods

如果过程(或函数)是方法,则创建此类型

type
  TMyProc = Procedure(x:Integer;y:Integer) of Object;

type
  TMyProc = Procedure(x:Integer;y:Integer);

如果程序是独立的。

//Some class method
Procedure TfrmMain.Add(x:Integer;y:Integer);
begin
  ...
end;

//Another class method that uses procedure as parameter
procedure Name(proc : TMyProc);
begin
  ...
end;

//Call with:

Name(Add);