近日，在網上看到有網友問曰：如何確定一個對象指針是否可用？也就是說，如何確定一個對象指針是否指向一個真正可用的對象實例？其實這本不應該成為一個問題。因為對於程序設計者來說，他應該能夠控制自己的程序不去訪問一個無效的指針，因為所有的對象實例的創建和銷毀都在他控制之下。並且即便沒有一個直接的辦法來判斷對象指針是否可用，也可以通過其他間接的途徑（比如使用一些標識等）來做到這一點（比如當我們銷毀一個對象實例後，我們將對象指針的指置為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;
以上我們探討的只是一種技術上的可能性。想要強調的一點是，即使有一個好的可行的辦法，也不鼓勵經常這麼做。因為，一個邏輯嚴密的程序，本來就應能夠杜絕去訪問一個無效的指針。
