如何获取delphi中pointer的实际32位内存地址，相当于ptr函数的反操作。
2个回答
展开全部
procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer ;
addr:Integer ;
p:Pointer ;
strHEX:string ;
begin
i:=12;
p:=@i;
addr :=PCardinal(@p)^ ;
strHEX:=IntToHex(addr,8);
edt1.Text :=IntToStr(addr);
edt2.Text :=strHEX ;
end;
var
i:Integer ;
addr:Integer ;
p:Pointer ;
strHEX:string ;
begin
i:=12;
p:=@i;
addr :=PCardinal(@p)^ ;
strHEX:=IntToHex(addr,8);
edt1.Text :=IntToStr(addr);
edt2.Text :=strHEX ;
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
大雅新科技有限公司
2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器，VGA延长器,VGA视频延长器,DVI KVM 切换器等，优质供应商，...
点击进入详情页
本回答由大雅新科技有限公司提供
展开全部
比如：
var g_iTmp:integer;
g_pPointer:Pointer;
g_pPointer:=@g_iTemp;{获取地址}
var g_iTmp:integer;
g_pPointer:Pointer;
g_pPointer:=@g_iTemp;{获取地址}
追问
32位地址哦，显示为interger，十六进制，如0033AAFFH。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
