在 delphi （object pascal 语言）中，在变量的前面加上 ＠ 就是取变量的地址了：
procedure TForm1.Button1Click(Sender: TObject);var a:integer; p:Pinteger;begin a := 100; p := @a; ShowMessage('$' + IntToHex(Integer(P), 4));end;
