近日，在網(wǎng)上看到有網(wǎng)友問曰：如何確定一個(gè)對(duì)象指針是否可用？也就是說，如何確定一個(gè)對(duì)象指針是否指向一個(gè)真正可用的對(duì)象實(shí)例？其實(shí)這本不應(yīng)該成為一個(gè)問題。因?yàn)閷?duì)于程序設(shè)計(jì)者來說，他應(yīng)該能夠控制自己的程序不去訪問一個(gè)無效的指針，因?yàn)樗械膶?duì)象實(shí)例的創(chuàng)建和銷毀都在他控制之下。并且即便沒有一個(gè)直接的辦法來判斷對(duì)象指針是否可用，也可以通過其他間接的途徑（比如使用一些標(biāo)識(shí)等）來做到這一點(diǎn)（比如當(dāng)我們銷毀一個(gè)對(duì)象實(shí)例后，我們將對(duì)象指針的指置為nil）。但是假如我們拋開以上所說的這兩點(diǎn)不談，單單來研究在Delphi中，究竟有沒有辦法來判斷一個(gè)對(duì)象指針是否可用，那情況會(huì)如何呢？

在Object Pascal中，一個(gè)類可以有兩種類型的方法，一種稱為對(duì)象方法(Object Method)，另一種是類方法（Class Method）。所謂對(duì)象方法，指的是方法的定義是針對(duì)對(duì)象（或稱實(shí)例）的，因此調(diào)用該方法需要基于某個(gè)對(duì)象（或稱實(shí)例），比如類的析構(gòu)函數(shù)Destroy就是一個(gè)對(duì)象方法（其實(shí)我們經(jīng)常用到的絕大部分方法都是對(duì)象方法）。而類方法，指的是方法的定義是基于一類對(duì)象而言，因此調(diào)用該方法不需要基于特定的對(duì)象實(shí)例，比如類的構(gòu)造函數(shù)Create就是如此。這一點(diǎn)，對(duì)我們有些啟發(fā)。判斷一個(gè)對(duì)象指針是否可用，似乎可以通過以下步驟來完成。首先，我們可以判斷該對(duì)象指針是否是nil，如果是，那么大功告成，確定不可用無疑；如果否，那么嘗試執(zhí)行該對(duì)象的某個(gè)對(duì)象方法，看看是否出現(xiàn)諸如無效內(nèi)存訪問等的異常，由此來判斷該對(duì)象是否可用。用如下代碼來驗(yàn)證我們的想法：

var

Obj: TObject;

begin

  Obj := TObject.Create;  //1.創(chuàng)建一個(gè)對(duì)象

  Obj.Free;             //2.釋放剛剛創(chuàng)建的對(duì)象，此時(shí)內(nèi)存被回收

  If Obj = nil then        //3.判斷指針是否為空，(這一步往往不成功，因?yàn)閷?duì)象

//被釋放，Delphi也不會(huì)自動(dòng)將對(duì)象指針置空)

    ShowMessage(‘對(duì)象指針不可用。’)

  else

  begin

       Try

If Obj.ClassType = TObject then  //4.調(diào)用TObject的一個(gè)對(duì)象方法

ShowMessage(‘對(duì)象類型為TObject’);

        Except

          ShowMessage(‘對(duì)象指針不可用。’)

        End;

  end;

end;

執(zhí)行上述代碼，我們發(fā)現(xiàn)，即使Obj.Free已經(jīng)執(zhí)行，Obj.ClassType依然可用。這表明，并不是所有的對(duì)象方法一定要依賴于某個(gè)對(duì)象實(shí)例才能夠訪問。究其原因，是因?yàn)檫@個(gè)對(duì)象方法不需要訪問某個(gè)對(duì)象實(shí)例所申請(qǐng)的內(nèi)存。從這個(gè)意義上來說，TObject.ClassType方法并不象是一個(gè)是真正的對(duì)象方法，而頗有些類方法的味道。

執(zhí)行上述代碼，我們還可以發(fā)現(xiàn)，一個(gè)對(duì)象執(zhí)行Free方法，只是將其在創(chuàng)建時(shí)所申請(qǐng)的內(nèi)存釋放全部釋放，但是并不影響到對(duì)象指針本身的值。對(duì)象指針還是指向原來的內(nèi)存地址。同時(shí)，由于某些對(duì)象方法（如ClassType）實(shí)現(xiàn)的特殊性，即使對(duì)象已經(jīng)被釋放了，對(duì)象方法的調(diào)用結(jié)果仍然正確。

綜上所述，我們可以得出一個(gè)結(jié)論，那就是，一個(gè)對(duì)象指針是否能夠被判斷為是否可用，要看該對(duì)象指針?biāo)鶎俚念?，是否提供了訪問對(duì)象實(shí)例內(nèi)存的途徑――這個(gè)途徑可以是方法，也可以是屬性。那么，現(xiàn)在具體到各個(gè)類中，情況又如何呢？

TObject，該類是所有類的祖先類，沒有辦法作出判斷。

TPersistent，由TObject派生而來，創(chuàng)建對(duì)象實(shí)例時(shí)不需要申請(qǐng)額外的內(nèi)存，所以也沒有辦法判斷。

TComponent，由TPersistent派生而來，增加了許多在創(chuàng)建對(duì)象實(shí)例時(shí)需要申請(qǐng)額外內(nèi)存的屬性，所以從理論上來說，它是可判斷的。代碼如下：

function ComponentExists(AComponent: TComponent): Boolean;

begin

  try

    AComponent.Hasparent; //注意：這個(gè)句子也可以為”AComponent.Tag;”

                         //或者為”AComponent.Name”

    result := True;

  except

    result := False;

  end;

end;

通過調(diào)用ComponentExists，我們可以得知一個(gè)TComponent類型的對(duì)象指針是否可用，而不管該對(duì)象指針是否已經(jīng)被釋放，是否被置為nil。

其他類，如TControl，TWinControl，或者TButton等等，只要是由TComponent派生而來，則TComponent的判斷方法依然適用。

還有其他一些用戶自定義的類，若是直接由不能判斷的類（比如TObject和TPersistent）派生而來，但是沒有需要在實(shí)例化時(shí)申請(qǐng)內(nèi)存的屬性，那么也沒有辦法判斷；反之，則可以。據(jù)個(gè)例子來說：

假設(shè)我們有一個(gè)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;

那么，對(duì)于TPerson類型的指針Person，可以用如下代碼判斷指針是否可用：

       Try

Person.Sex;

//或者 Person.FirstName;

//或者 Person.LastName;

result := True; //指針可用

Except

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

end;

以上我們探討的只是一種技術(shù)上的可能性。想要強(qiáng)調(diào)的一點(diǎn)是，即使有一個(gè)好的可行的辦法，也不鼓勵(lì)經(jīng)常這么做。因?yàn)椋粋€(gè)邏輯嚴(yán)密的程序，本來就應(yīng)能夠杜絕去訪問一個(gè)無效的指針。

   更多文章