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

原创 2001年10月11日 21:48:00

 

Musicwind于2004年6月郑重声明:以下内容纯属胡言乱语,荒谬之至!相关内容于csdn程序员杂志某期增刊发表,实属误人子弟之不幸!在此向广大读者致谦!

 

探究:如何判断Delphi中的对象指针是否可用<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

作者: 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

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

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

假设我们有一个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;

   

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

   更多文章

[文终]

 

Delphi:记录类型、过程指针、函数(方法)指针字段的应用

由于工作关系使用delphi已经有一年时间,
  • jakrq
  • jakrq
  • 2014年10月14日 14:54
  • 944

Delphi下使用指针的简单总结

1:指针的赋值。   type RTestInfo = record Age:Integer; end; PtestInfo = ^ RtestInfo; var Test1,Test2:...
  • zisongjia
  • zisongjia
  • 2017年07月27日 10:50
  • 544

C++中的函数指针

标准C++中没有真正的面向对象的函数指针。这一点对C++来说是不幸的,因为面向对象的 指针(也叫做"闭包(closure)"或"委托(delegate)")在一些语言中已经证明了它宝贵 的价值。在De...
  • batoom
  • batoom
  • 2010年12月03日 12:31
  • 3207

判断对象指针是否可用

在Object Pascal中,一个类可以有两种类型的方法,一种称为对象方法(Object Method),另一种是类方法(Class Method)。所谓对象方法,指的是方法的定义是针对对象(或称实...
  • haiou327
  • haiou327
  • 2013年01月07日 10:54
  • 732

判断webservice是否可用

在.net中验证WebService的Url有效并且验证服务可用: 需要用到win32下的组件,比如Microsoft XML, v5.0 测试程序具体如下:建一个项目...
  • lhypang2006
  • lhypang2006
  • 2010年08月06日 21:26
  • 3217

函数指针与指针函数---应用为函数的回调

  • yskcg
  • yskcg
  • 2010年09月03日 18:44
  • 475

Delphi的指针

Pointers are like jumps, leading wildly from one part of the data structure to another. Their introd...
  • henreash
  • henreash
  • 2012年03月19日 11:24
  • 10132

批判,再批判!关于“探究:如何判断Delphi中的对象指针是否可用”!

    01年本人发表了一篇文章,名为“探究:如何判断Delphi中的对象指针是否可用”。在文中,提出了采用对已经释放的对象进行有选择的属性/方法的访问或调用,然后以是否出现异常来判断其对象指针是否可...
  • Musicwind
  • Musicwind
  • 2004年06月26日 16:15
  • 2537

Broadcast监听网络状态,ping判断网络是否可用

判断网络状态,android提供了api,可以很方便的使用。但是在某些情况下,网络状态连接正常,但是并不一定就可以去访问其他网页。比如,路由器打开了,但是没有插上网线,手机GPRS打开了,但是手机已经...
  • Kern_
  • Kern_
  • 2015年09月25日 13:18
  • 1141

Delphi 常用函数

 一、数据类型转换函数  在我们编写程序当中,根据不同情况,会使用到多种数据类型。当要对不同的类型进行操作时,必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。  1.Fl...
  • formiss
  • formiss
  • 2006年12月11日 16:40
  • 7254
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:探究:如何判断Delphi中的对象指针是否可用
举报原因:
原因补充:

(最多只允许输入30个字)