2011計(jì)算機(jī)等級(jí)考試Delphi面向?qū)ο蟮木幊谭椒?/h1>

來源：考試吧（Exam8.com）　2010-10-25 17:20:40　【考試吧：中國教育培訓(xùn)第一門戶】　模擬考場

　　2.2.7 建立非可視化對象

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

　　2.2.7.1說明一個(gè)非可視化對象

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

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

　　type

　　Temployee = class(TObject);

　　Name := String[25];

　　Title := String[25];

　　HourlyPayRate : Double;

　　function CalculatePayAmount:Double;

　　end;

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

　　var

　　Employee : TEmployee;

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

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

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

　　Employee := TEmployee.Create;

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

　　2.2.7.3 撤銷對象

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

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

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

　　Employee.Free;

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