随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

{自定义过程}
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 on 2008-01-15 01:06  万一  阅读(...)  评论(...编辑  收藏