1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
p:Pinteger;
begin
a := 100;
p := @a;
ShowMessage('$' + IntToHex(Integer(P), 4));
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
p:Pinteger;
begin
a := 100;
p := @a;
end;