16,748
社区成员
发帖
与我相关
我的任务
分享
var
Form1: TForm1;
g_arry: array[0..100] of char;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
l_arry: array[0..100] of char;
p_arry: PChar;
begin
GetMem(p_arry,100);
Memo1.Lines.Add('garry = '+ IntToHex(Integer(addr(g_arry[0])),8));
Memo1.Lines.Add('larry = '+ IntToHex(Integer(addr(l_arry[0])),8));
Memo1.Lines.Add('parry = '+ IntToHex(Integer(addr(p_arry[0])),8));
Memo1.Lines.Add('parry^= '+ IntToHex(Integer(p_arry^),8));
GetMem(p_arry,100);
Memo1.Lines.Add('parry = '+ IntToHex(Integer(addr(p_arry[0])),8));
Memo1.Lines.Add('parry^= '+ IntToHex(Integer(p_arry^),8));
end;
end.
结果:
Memo1
garry = 00453BD4
larry = 0012F557
parry = 00CD24E0
parry^= 00000008
parry = 00CD3EF0
parry^= 000000EC