分享
 
 
 

探究:如何判断Delphi中的对象指针是否可用

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

探究:如何判断Delphi中的对象指针是否可用

作者: Musicwind®

创建时间:2001-08-07

近日,在网上看到有网友问曰:如何确定一个对象指针是否可用?也就是说,如何确定一个对象指针是否指向一个真正可用的对象实例?其实这本不应该成为一个问题。因为对于程序设计者来说,他应该能够控制自己的程序不去访问一个无效的指针,因为所有的对象实例的创建和销毁都在他控制之下。并且即便没有一个直接的办法来判断对象指针是否可用,也可以通过其他间接的途径(比如使用一些标识等)来做到这一点(比如当我们销毁一个对象实例后,我们将对象指针的指置为nil)。但是假如我们抛开以上所说的这两点不谈,单单来研究在Delphi中,究竟有没有办法来判断一个对象指针是否可用,那情况会如何呢?

在Object Pascal中,一个类可以有两种类型的方法,一种称为对象方法(Object Method),另一种是类方法(Class Method)。所谓对象方法,指的是方法的定义是针对对象(或称实例)的,因此调用该方法需要基于某个对象(或称实例),比如类的析构函数Destroy就是一个对象方法(其实我们经常用到的绝大部分方法都是对象方法)。而类方法,指的是方法的定义是基于一类对象而言,因此调用该方法不需要基于特定的对象实例,比如类的构造函数Create就是如此。这一点,对我们有些启发。判断一个对象指针是否可用,似乎可以通过以下步骤来完成。首先,我们可以判断该对象指针是否是nil,如果是,那么大功告成,确定不可用无疑;如果否,那么尝试执行该对象的某个对象方法,看看是否出现诸如无效内存访问等的异常,由此来判断该对象是否可用。用如下代码来验证我们的想法:

var

Obj: TObject;

begin

Obj := TObject.Create; //1.创建一个对象

Obj.Free; //2.释放刚刚创建的对象,此时内存被回收

If Obj = nil then //3.判断指针是否为空,(这一步往往不成功,因为对象

//被释放,Delphi也不会自动将对象指针置空)

ShowMessage(‘对象指针不可用。’)

else

begin

Try

If Obj.ClassType = TObject then //4.调用TObject的一个对象方法

ShowMessage(‘对象类型为TObject’);

Except

ShowMessage(‘对象指针不可用。’)

End;

end;

end;

执行上述代码,我们发现,即使Obj.Free已经执行,Obj.ClassType依然可用。这表明,并不是所有的对象方法一定要依赖于某个对象实例才能够访问。究其原因,是因为这个对象方法不需要访问某个对象实例所申请的内存。从这个意义上来说,TObject.ClassType方法并不象是一个是真正的对象方法,而颇有些类方法的味道。

执行上述代码,我们还可以发现,一个对象执行Free方法,只是将其在创建时所申请的内存释放全部释放,但是并不影响到对象指针本身的值。对象指针还是指向原来的内存地址。同时,由于某些对象方法(如ClassType)实现的特殊性,即使对象已经被释放了,对象方法的调用结果仍然正确。

综上所述,我们可以得出一个结论,那就是,一个对象指针是否能够被判断为是否可用,要看该对象指针所属的类,是否提供了访问对象实例内存的途径——这个途径可以是方法,也可以是属性。那么,现在具体到各个类中,情况又如何呢?

TObject,该类是所有类的祖先类,没有办法作出判断。

TPersistent,由TObject派生而来,创建对象实例时不需要申请额外的内存,所以也没有办法判断。

TComponent,由TPersistent派生而来,增加了许多在创建对象实例时需要申请额外内存的属性,所以从理论上来说,它是可判断的。代码如下:

function ComponentExists(AComponent: TComponent): Boolean;

begin

try

AComponent.HasParent; //注意:这个句子也可以为”AComponent.Tag;”

//或者为”AComponent.Name”

result := True;

except

result := False;

end;

end;

通过调用ComponentExists,我们可以得知一个TComponent类型的对象指针是否可用,而不管该对象指针是否已经被释放,是否被置为nil。

其他类,如TControl,TWinControl,或者TButton等等,只要是由TComponent派生而来,则TComponent的判断方法依然适用。

还有其他一些用户自定义的类,若是直接由不能判断的类(比如TObject和TPersistent)派生而来,但是没有需要在实例化时申请内存的属性,那么也没有办法判断;反之,则可以。据个例子来说:

假设我们有一个TPerson类,定义如下:

TPerson = Class(TObject)

Private

FSex: TSex; // TSex 是枚举类型的性别;

FFirstName: String;

FLastName: String;

//…

Public

property Sex: TSex read FSex write FSex;

property FirstName: String read FFirstName write FFirstName;

property LastName: String read FLastName write FLastName;

//…

end;

那么,对于TPerson类型的指针Person,可以用如下代码判断指针是否可用:

Try

Person.Sex;

//或者 Person.FirstName;

//或者 Person.LastName;

result := True; //指针可用

Except

result := False;//指针不可用

end;

以上我们探讨的只是一种技术上的可能性。想要强调的一点是,即使有一个好的可行的办法,也不鼓励经常这么做。因为,一个逻辑严密的程序,本来就应能够杜绝去访问一个无效的指针。

更多文章

[文终]

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有