Object Pascal:从对象指针谈起(3)

2008-04-11 12:27:19来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

4. 灵活运用

有没有尝试过这样的代码呢?

var

i: Integer;

dw: DWORD;

begin

I := Integer(Button1);

ShowMessage(TButton(I).Caption);

dw := DWORD(Button1);

ShowMessage(TButton(dw).ClassName);

end;

你会发现,原来IntegerDWORD也可以作为对象指针来使用。原因自然是因为它们的存储空间与TObject类型的指针所要求的相同。

推而广之,只要有四个字节……(后面就不用我说了吧?),或者套用阿基米德的一句名言“只要给我四个字节,我就可以……”。

Object Pascal的世界其实也很精彩,只要你肯发现!

更多文章

[文终]

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:报表设计

下一篇:通用查询组件设计