(转)智能指针的另外一种实现 - Smart pointers in Delphi

======================================================
注：本文源代码点此下载
======================================================

杨大大,我刚刚看到《delphi 2009 handbook》的智能指针一章,该书中也有上面这种实现的智能指针,后来我又仔细的读了一遍您写的《(原创)delphi2009初体验 - 语言篇 - 智能指针(smart pointer)的实现》,我现在有个疑问,用record+interface的方式来实现智能指针是不是有点脱裤子放屁了(不雅见谅),该例中record本身与free内部对象没有直接关系,而interface使用引用计数,它本身不需要record就可以直接隐性的free其内部对象,这里用record有意义吗?我还是喜欢你写的智能指针,干净、利索。另,这个例子就像装配脑袋说的充其量也只是个智能对象。另外,看你的文章我收获很大,很感谢。期待你继续写出好文章。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/