深入方法(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;
posted @ 2020-04-20 18:00  范思哲  阅读(257)  评论(0编辑  收藏  举报