判断对象指针是否可用

在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;

   

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