DelPhi学习笔记6用户自定义类型

1、用户自定义类型格式:Type类型标识符=标识符1,标识符2,标识符3,-,标识符m；枚举类型届丁顺序类型，枚举类型的每个元素对应一个有序的整数，其中第一个元素对应序数0.因此，枚举类型本质上是用一些枚举常量来表示一组连续的整数。但枚举常量不能直接进行算术运算，可以进行关系运算或间接的算术运算。例：TypeColorl=Red,Green,Blue,Yellow；【例6-1】编写一个设置文本格式的应用程序，程序的设计界面如图6-1所示。程序运行时，在编辑框中显示的文本是轻松学习Delphi”。程序运行时，单击【宋体】按钮，文本字体为宋体；单击【隶书】按钮，文本字体为隶书；单击【黑体】按钮，文本字

2、体变为黑体。图6-2是单击隶书时的运行界面。要求用枚举类型实现。jFT-x-胳松学习DelphiII；flIUIIVF9ll1>IIIIVaVP1Bil!lVIF4FI1*41宋体>隶书I-黑体»«i|IIa|iIIIWI|PI|PI|II|II¥IPPi|l|P|lii|部份代码：implementationtype定义枚举类型MyFont=(st,ls,ht;var定义枚举类型变量ft:MyFont;($R*.dfmFunctionffont(fft:MyFont:String;beginCasefftofst:ffont:='宋体'

3、;ls:ffont:='ComicSansMS'ht:ffont:='黑体'end;end;procedureTForm1.Button1Click(Sender:TObject;beginifButton1.Caption='宋体'thenbeginft:=st;Edit1.Font.Name:=ffont(ft;end;end;procedureTForm1.Button2Click(Sender:TObject;beginifButton2.Caption='隶书'thenbeginft:=Is;Edit1.Font.Nam

4、e:=ffont(ft;end;end;procedureTForm1.Button3Click(Sender:TObject;beginifButton3.Caption='黑体'thenbeginft:=ht;Edit1.Font.Name:=ffont(ft;end;end;6.1.3集合类型的定义与使用集合是具有相同性质但乂可以区分开来的对象的全体。格式：Type类型标识符=setof其类型；例：TypeColors=Red,Green,Blue,Yellow；先定义一个枚举类型Color=setofColors;定义一个基类型为枚举类型的集合类型Char=setof&

5、#39;m'宜接卷戒顽"基类型为子界类型的集合类型。下面的定义是错误的：typeNum_p=setof200.400;/厘然只有201一个元素，但256400这些数值超过了2552.集合类型的使用。【例6-2】编写一个判断字符申中是否有元音字母的程序，程序的设计界面如图6-3所示。程序运行时，在【输入单词】编辑框中输入一个任意单词，然后单击【判断】按钮，将在【结果】编辑框中显示有无元音字母的文本。其中，元音字母为“a,e,i,o,u,程序运行界面如图6-4所示。要求用集合类型实现。6.1.4记录类型的定义与使用格式：type记录类型标识符=Record字段1:类型1;字段2:

6、类型2;。字段n:类型n;end;2.下面定义一个住院病人的记录类型，如下所示：typePatient=Record/说明这是记录类型p_num:Integer;/序段1是病人的住院号，为整形数据p_name:String;/字段2是病人的，为字符申数据p_pay:Boolean；字段3是病人的付款情况，为布尔型数据end;【例6-3】编写一个程序，用来输入和显示某单位职工基本信息。程序的设计界面如图6-5所示，程序运行时，单击【输入信息】按钮，用户可以输入职工的基本信息，包括、职称和基本工资。单击【查看信息】按钮，可以显示刚刚输入的该单位职工的基本信息，如图6-6所示。implementat

7、iontypepeopleInformation=Record/£义记录类型name:String8;call:String6;wage:Integer;end;varpeople:Array1.3ofpeopleinformation;($R*.dfmprocedureTForm1.Button1Click(Sender:TObject;vark:Integer;beginfork:=1:=InputBox('职工信息','请输入第'+IntToStr(k+'个职工',''p

8、eoplek.call:=InputBox('职工信息','请输入第'+IntToStr(k+'个职工职称,''peoplek.wage:=StrToInt(InputBox('职工信息','请输入第'+IntToStr(k+'个职工基本工资','0'end;end;procedureTForm1.Button2Click(Sender:TObject;varm:Integer;begin在指定位置显示Canvas.TextOut(45,25，姓名'+'

9、9;+'职称'+''+'基本工资'form:=1to3doCanvas.TextOut(45,25*(m+1,+''+peoplem.call+''+IntToStr(peoplem.wage;end;【练习题目】：寻找1100之间的全部素数编写一个寻找1100之间的全部素数的程序，程序的设计界面如图6-11所示。程序运行时，单击【寻找素数】按钮将显示1100之间的全部素数，这个函数专门用来判断数字是否为素数functionSearchPrime(num:Integer:Boolean;vari:Integer;flag:Boolean;beginflag:=true;判断是否为素数。素数是只能由1和本身整除的fori:=2tonum-1dobegin取模可以整除的话。就不是素数if(nummodi=0thenbeginflag:=false;break;end;end;if(flag=falsethenResult:=false;if(flag=truethenResult:=flag;end;procedureTForm1.Button1Click(Sender:TObject;varflag:bool;i:Integer;k:Integer;begin/2也是素数F