判断Delphi中的对象指针是否可用的方法

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

探究：如何判断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;

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

更多文章

[文终]