2.2.7 建立非可視化對象

　　您在Delphi中使用的大部分對象都是您在設(shè)計(jì)和運(yùn)行期間可以看見的部件，例如編輯框、按鈕等;一些部件，如通用對話框(Common dialog box)等，在設(shè)計(jì)時看不見，而在運(yùn)行時可以看見;另外有些部件，例如計(jì)時器(Timer)、數(shù)據(jù)源(Data Source)部件等，在程序的運(yùn)行期間沒有任何可視化的顯示，但您卻可以在您的應(yīng)用程序中使用它們。

　　2.2.7.1說明一個非可視化對象

　　下面，通過一個簡單的例子講述如何建立自己的非可視化對象：

　　您可以用如下的方法，建立一個自己的TEmployee非可視化對象：

　　type

　　Temployee = class(TObject);

　　Name := String[25];

　　Title := String[25];

　　HourlyPayRate : Double;

　　function CalculatePayAmount:Double;

　　end;

　　在這種情況下，TEmployee從TObject繼承下來，且包含三個域和一個方法。把您建立的類型說明放在庫單元中的說明部分，并和窗體說明放在一起。在這個程序庫單元的變量說明部分，說明一個新類型的變量：

　　var

　　Employee : TEmployee;

　　2.2.7.2用Create方法建立對象實(shí)例

　　TEmployee只是一個對象類型。除非通過一個構(gòu)造函數(shù)的調(diào)用從而被實(shí)例取代或創(chuàng)建，否則一個對象并不存儲在內(nèi)存中。構(gòu)造函數(shù)是一個方法，它為新對象配置內(nèi)存并且指向這個新的對象。這個新的對象也被稱為這個對象類型的一個實(shí)例。

　　建立一個對象的實(shí)例，需要調(diào)用Create方法，然后構(gòu)造函數(shù)把這個實(shí)例賦給一個變量。如果您想說明一個TEmployee類型的實(shí)例，在您訪問這個對象的任何域之前，您的程序代碼必須調(diào)用Create。

　　Employee := TEmployee.Create;

　　Create方法并沒有在TEmployee類型中說明，它繼承自TObject類型。因?yàn)門Employee是TObject的子類，所以它可以調(diào)用Create方法而創(chuàng)建一個TEmployee實(shí)例。然后把它賦給Employee變量。在創(chuàng)建了一個這樣的對象后，您就可以象使用其他的Delphi對象一樣訪問Employee對象了。

　　2.2.7.3 撤銷對象

　　當(dāng)您使用完對象后，您應(yīng)該及時撤銷它，以便把這個對象占用的內(nèi)存釋放出來。您可以通過調(diào)用一個注銷方法來撤銷您的對象，它會釋放分配給這個對象的內(nèi)存。

　　Delphi的注銷方法有兩個：Destroy和Free。Delphi建議使用Free，因?yàn)樗�比Destroy更為安全，同時調(diào)用Free會生成效率更高的代碼。

　　您可以用下列的語句釋放用完的Employee對象：

　　Employee.Free;

　　和Create方法一樣，F(xiàn)ree方法也是TEmployee從TObject中繼承過來的。把您的注銷放在try…finally程序模塊的finally部分，而把對象的程序代碼放在try部分是編程的好習(xí)慣。這樣，即使您的程序代碼在使用對象時發(fā)生了異常事件，也會確保您為這個對象分配的內(nèi)存會被釋放。關(guān)于異常處理和try…finally程序模塊的信息以及建立非可視化對象的例子，在后文中還將仔細(xì)講述。