DelPhi學(xué)習(xí)筆記6用戶自定義類型(精)

1、用戶自定義類型1枚舉類型的定義 格式：Type類型標(biāo)識符=（標(biāo)識符 1，標(biāo)識符 2,標(biāo)識符 3,-，標(biāo)識符 m）;2格舉類型的使用枚舉類型屬于順序類型， 枚舉類型的每個元素對應(yīng)一個有序的整數(shù)， 應(yīng)序數(shù) 0因此，枚舉類型本質(zhì)上是用一些枚舉常量來表示一組連續(xù)的整數(shù)。 直接進行算術(shù)運算，可以進行關(guān)系運算或間接的算術(shù)運算。例：TypeColorl =( Red， Green, Blue， Yellow)；【例 6-1】 編寫一個設(shè)置文本格式的應(yīng)用程序，程序的設(shè)計界面如圖6-1 所示。程序運行時，在編輯框中顯示的文本是“輕松學(xué)習(xí)Delphi” 。 程序運行時， 單擊 【宋體】按鈕，文本字體為宋體；單擊【

2、隸書】按鈕，文本字體為隸書； 單擊【黑體】按鈕，文本字體變?yōu)楹隗w。 圖 6-2 是單擊隸書時的運行界面。要求用枚舉類型實現(xiàn)。輕松學(xué)習(xí)DGlpKilJ宋體集書11黑體- - - -部份代碼：impleme ntati ontype/定義枚舉類型MyFo nt = (st,ls,ht);var/定義枚舉類型變量ft : MyFo nt;$R *.dfmFunction ffont(fft : MyFont): String;beginCase fft ofst : ffont :=宋體;ls : ffont := Comic Sans MS;ht : ffont :=黑體；en d;其中第一個元素

3、對但枚舉常量不能end;procedure TForml.Butt on 1Click(Se nder: TObject); beginif Button1.Caption =宋體thenbeginft := st;Edit1.Font.Name := ffont(ft);en d;en d;procedure TForm1.Butt on 2Click(Se nder: TObject); beginif Button2.Caption =隸書thenbeginft := ls;Edit1.Font.Name := ffont(ft);en d;en d;procedure TForm1.B

4、utt on 3Click(Se nder: TObject); beginif Button3.Caption =黑體then beginft := ht;Edit1.Font.Name := ffont(ft);en d;en d;6.1.3 集合類型的定義與使用1.集合類型的定義集合是具有相同性質(zhì)但又可以區(qū)分開來的對象的全體。格式：Type類型標(biāo)識符 =set of 其類型；例：TypeColors =（ Red， Green. Blue，Yellow）； /先定義一個枚舉類型Color = set of Colors; /定義一個基類型為枚舉類型的集合類型Char = set of m

5、.q;直接定義一個基類型為子界類型的集合類型。F 面的定義是錯誤的:typeNum_p = set of 200.400;/雖然只有 201 一個元素，但 256400 這些數(shù)值超過了 2552集合類型的使用。【例 6-2】編寫一個判斷字符串中是否有元音字母的程序，程序的設(shè)計界面如圖6-3 所示。程序運行時，在【輸入單詞】編輯框中輸入一個任意單詞，然后單擊【判斷】按鈕，將 在【結(jié)果】編輯框中顯示有無元音字母的文本。其中，元音字母為“a,e,i,o,u” ，程序運行界面如圖 6-4 所示。要求用集合類型實現(xiàn)。6.1.4 記錄類型的定義與使用1.記錄類型的定義格式：type記錄類型標(biāo)識符=Reco

6、rd字段 1:類型 1 ；字段 2：類型 2； 字段 n :類型 n;en d;2.下面定義一個住院病人的記錄類型，如下所示:typePatie nt = Recordp_num : In teger; p_name : String;p_pay : Boolean;en d;【例 6-3】編寫一個程序，用來輸入和顯示某單位員工基本信息。程序的設(shè)計界面如圖6-5 所示，程序運行時，單擊【輸入信息】按鈕，用戶可以輸入員工的基本信息，包括姓名、 職稱和基本工資。單擊【查看信息】按鈕，可以顯示剛剛輸入的該單位員工的基本信息，如 圖 6-6 所示。姓名職稱基本工資韓跑跑修臺9999999張無忌教主12

7、3456屁華IT 300000000說明這是記錄類型字段 1 是病人的住院號，為整形數(shù)據(jù)字段 2 是病人的姓名，為字符串?dāng)?shù)據(jù)字段 3 是病人的付款情況，為布爾型數(shù)據(jù)7f輸入信息查看信息impleme ntati ontypepeople In formati on = Record定義記錄類型n ame : Strin g8;call : Stri ng 6;wage :ln teger;en d;varpeople :Array 1.3 ofpeople In formati on;$R *.dfmprocedure TForm1.Butt on 1Click(Se nder: TObjec

8、t);vark : In teger;beginfor k := 1 to 3 := InputBox(員工信息,請輸入第+IntToStr(k)+個員工姓名,);peoplek.call := InputBox(員工信息,請輸入第+IntToStr(k)+個員工職稱,); peoplek.wage :=StrToInt(lnputBox(員工信息,請輸入第+IntToStr(k)+個員工 基本工資,0);end;end;procedure TForml.Butt on 2Click(Se nder: TObject);varm : In teger;b

9、egin/在指定位置顯示Canvas.TextOut(45,25,姓名+職 稱+ 基本工資);for m := 1 to 3 doCan vas.TextOut(45,25 * (m+1), peoplem .n ame + + peoplem.call +I ntToStr(peoplem.wage );en d;【練習(xí)題目】：尋找 1100 之間的全部素數(shù)編寫一個尋找 1100 之間的全部素數(shù)的程序，程序的設(shè)計界面如圖6-11 所示。程序運行時，單擊【尋找素數(shù)】按鈕將顯示1100 之間的全部素數(shù)，尋找一到一百的;2 3 5 711 13 1719 2329313741 43 4753 59

10、 6167 717379833S 97/這個函數(shù)專門用來判斷數(shù)字是否為素數(shù)function SearchPrime (num : In teger) : Boolea n ; vari : In teger;flag : Boolea n;beginflag := true;/判斷是否為素數(shù)。素數(shù)是只能由1 和本身整除的。for i := 2 to num - 1 dobegin取?？梢哉脑挕＞筒皇撬財?shù)if(num) mod i = 0) the nbeginflag := false;break;en d;en d;if(flag = false) the nResult := false;if(flag = true) the nResult := flag;en d;procedure TForml.Butt on 1Click(Se nder: TObject);varflag : bool;i : In teger;k : In teger;begin2 也是素數(shù)