理解 Delphi 的类(十) - 深入方法[24] - 方法是一个指针

{自定义过程}
procedure MyProc;
begin
ShowMessage('ok');
end;

{自定义函数}
function MyFun: string;
begin
Result := 'ok';
end;

{读取它们的指针}
procedure TForm1.Button1Click(Sender: TObject);
var
p: Pointer;
begin
p := @MyProc;
ShowMessage(IntToStr(Integer(p))); {4570984; 这是动态的}

p := @MyFun;
ShowMessage(IntToStr(Integer(p))); {4571008; 这是动态的}
end;