2.1.9.5 集合類型

　　集合類型是一群相同類型元素的組合，這些類型必須是有限類型如整形、布爾型、字符型、枚舉型和子界型。在檢查一個(gè)值是否屬于一個(gè)特定集合時(shí)，集合類型非常有用。下面的例程可以說(shuō)明集合類型的用法：

　　在窗體上加入一個(gè)編輯框和一個(gè)按鈕，清除編輯框中的文字，在其上加上Caption為“輸入元音”的標(biāo)簽Label，并在編輯框的下方加入一個(gè)空的標(biāo)簽，將按鈕的Default屬性改為True，建立按鈕的事件處理過(guò)程如下：

　　procedure TForm1.Button1Click(Sender:TObject);

　　type

　　Tvowels=set of Char;

　　var

　　Vowels:TVowels;

　　begin

　　Vowels := ['a','e','i','o','u'];

　　if Edit1.Text[1] in Vowels then

　　Lable2.Caption := '是元音';

　　else

　　Lable2.Caption := '請(qǐng)?jiān)僭?;

　　end;

　　執(zhí)行這個(gè)程序，在編輯框中輸入字母，表達(dá)式Edit1.Text[1] in Vowels的結(jié)果是布爾型的，in是運(yùn)算符，用來(lái)判斷字母是否存在于集合中。輸入的判別結(jié)果會(huì)顯示在編輯框的下方。以上就用到了集合類型TVowels。

　　2.1.9.6 記錄類型

　　記錄是您的程序可以成組訪問(wèn)的一群數(shù)據(jù)的集合。下面的例程說(shuō)明了一個(gè)記錄類型的用法：

　　type

　　TEmployee=record

　　Name : string[20];

　　YearHired:1990..2000;

　　Salsry: Double;

　　Position: string[20];

　　end;

　　記錄包含可以保存數(shù)據(jù)的域，每一個(gè)域有一個(gè)數(shù)據(jù)類型。上文的記錄TEmployee類型就含有四個(gè)域。您可以用以下的方式說(shuō)明記錄型的變量：

　　var

　　NewEmployee,PromotedEmployee:TEmployee;

　　用如下的方法可以訪問(wèn)記錄的單域：

　　NewEmployee.Salary := 1000;

　　編寫如下的語(yǔ)句可以給整個(gè)記錄賦值：

　　with PromotedEmployee do

　　begin

　　Name :='';

　　YearHired := 1993;

　　Salary := 2000.00

　　Position := 'editor';

　　end;

　　您的程序可以將記錄當(dāng)成單一實(shí)體來(lái)操作：

　　PromptEmployee := NewEmployee;

　　以上介紹了用戶常用的自定義類型。在Delphi的編程中，對(duì)象是非常重要的用戶自定義數(shù)據(jù)類型。象記錄一樣，對(duì)象是結(jié)構(gòu)化的數(shù)據(jù)類型，它包含數(shù)據(jù)的域(Field)，也包含作為方法的過(guò)程和函數(shù)。在Delphi中，當(dāng)您向窗體中加入一個(gè)部件，也就是向窗體對(duì)象中加入了一個(gè)域;每一個(gè)部件也是對(duì)象，每當(dāng)您建立一個(gè)事件處理過(guò)程使得部件可以響應(yīng)一個(gè)事件時(shí)，您即自動(dòng)地在窗體中加入了一個(gè)方法。在本章第2節(jié)中，將詳細(xì)講述Delphi面向?qū)ο缶幊痰姆椒ê图记伞?/P>

　　2.1.10 Object Pascal的庫(kù)單元Unit

　　Units是常量、變量、數(shù)據(jù)類型、過(guò)程和函數(shù)的集合，而且能夠被多個(gè)應(yīng)用程序所共享。Delphi已經(jīng)擁有許多預(yù)定義的程序庫(kù)單元可供您建立您的程序庫(kù)單元使用。Delphi的Visual Component Library由多個(gè)程序庫(kù)單元組成，它們說(shuō)明了對(duì)象、部件以供您的應(yīng)用程序用來(lái)設(shè)計(jì)用戶界面。例如，當(dāng)您在窗體中加入一個(gè)Check Box時(shí)，Delphi自動(dòng)在您的程序庫(kù)單元中加入了Stdctrls庫(kù)單元，因?yàn)門CheckBox部件是在StdCtrls庫(kù)單元中說(shuō)明的。

　　當(dāng)您設(shè)計(jì)您的窗體時(shí)，Delphi自動(dòng)建立一個(gè)和您的窗體有關(guān)的庫(kù)單元。您的庫(kù)單元不必都和窗體有關(guān)，也可以使用預(yù)定義的只包含數(shù)學(xué)運(yùn)算函數(shù)的庫(kù)單元，或是自行編寫數(shù)學(xué)函數(shù)庫(kù)單元。在一個(gè)庫(kù)單元中所有的說(shuō)明都相互有關(guān)系，例如，CDialogs程序庫(kù)單元包含了在您的應(yīng)用程序中使用的普通對(duì)話框的所有說(shuō)明。