理解 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;