注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

System.TPtrWrapper - 指针包装器  

2013-06-22 11:33:05|  分类: delphi xe4 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

不知什么时候 System 单元有了 TPtrWrapper 结构体, 它提供了非常小的一点功能: 指针(Pointer)与指针地址(NativeInt)的转换.

很显然, 以前常用的 Integer(P) 或 Ptr(Number) 已经不适用与 64 位了, 这时使用 TPtrWrapper 应该是更方便,更保险的选择.

发现在 Delphi 新的源码中, 几乎就把 TPtrWrapper 当做指针来使用了.

{TPtrWrapper 全功能测试}
procedure TForm1.FormCreate(Sender: TObject);
var
  num: Integer;
  p: Pointer;
  Address: NativeInt;
  PW1,PW2,PW3: TPtrWrapper;
  b: Boolean;
begin
  p := @num;

  //建立方法 1
  PW1 := TPtrWrapper.Create(p);
  Address := PW1.ToInteger;           //ToInteger

  //建立方法 2
  PW2 := TPtrWrapper.Create(Address);
  PInteger(PW2.ToPointer)^ := 123;    //ToPointer
  ShowMessage(IntToStr(num)); //123

  //建立方法 3
  PW3 := TPtrWrapper.NilValue;

  //Equal 运算
  b := PW1 = PW2;
  ShowMessage(BoolToStr(b, True));

  //NotEqual 运算
  b := PW1 <> PW3;
  ShowMessage(BoolToStr(b, True));

  //作为结构的 TPtrWrapper, 其起始位置存放的就是指针
  p := Pointer(PW1);
  ShowMessage(IntToStr(PInteger(p)^)); //123

  //既如此, 也就可以直接把一个地址数, 或指针直接强制转换为 TPtrWrapper 了
  PW3 := TPtrWrapper(Address);
  ShowMessage(IntToStr(Integer(PW3))); //类似于 1244823
end;
  评论这张
 
阅读(122)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017