- 1、本文档共9页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
用户自定义类型
1.枚举类型的定义
格式:
Type
类型标记符=(标记符1,标记符2,标记符3,---,标记符m);
2.格举类型的使用
枚举类型属于顺序类型,枚举类型的每个元素相应一个有序的整数,其中第一个元素相应序数0.因此,枚举类型本质上是用一些枚举常量来表达一组连续的整数。但枚举常量不能直接进行算术运算,可以进行关系运算或间接的算术运算。
例:
Type
Color1=(Red,Green,Blue,Yellow);
【例6-1】编写一个设立文本格式的应用程序,程序的设计界面如图6-1所示。程序运
行时,在编辑框中显示的文本是“轻松学习Delphi”。程序运营时,单击【宋体】按钮,文本
字体为宋体;单击【隶书】按钮,文本字体为隶书;单击【黑体】按钮,文本字体变为黑体。
图6-2是单击隶书时的运营界面。规定用枚举类型实现。
部份代码:
implementation
type
//定义枚举类型
MyFont=(st,ls,ht);
var
//定义枚举类型变量
ft:MyFont;
{$R*.dfm}
Functionffont(fft:MyFont):String;
begin
Casefftof
st:ffont:=宋体;
ls:ffont:=ComicSansMS;
ht:ffont:=黑体;
end;
end;
procedureTForm1.Button1Click(Sender:TObject);
begin
ifButton1.Caption=宋体then
begin
ft:=st;
Edit1.Font.Name:=ffont(ft);
end;
end;
procedureTForm1.Button2Click(Sender:TObject);
begin
ifButton2.Caption=隶书then
begin
ft:=ls;
Edit1.Font.Name:=ffont(ft);
end;
end;
procedureTForm1.Button3Click(Sender:TObject);
begin
ifButton3.Caption=黑体then
begin
ft:=ht;
Edit1.Font.Name:=ffont(ft);
end;
end;
6.1.3集合类型的定义与使用
1.集合类型的定义
集合是具有相同性质但又可以区分开来的对象的全体。
格式:
Type
类型标记符=setof其类型;
例:
Type
Colors=(Red,Green,Blue,Yellow);//先定义一个枚举类型
Color=setofColors;//定义一个基类型为枚举类型的集合类型
Char=setof‘m’..’q’;//直接定义一个基类型为子界类型的集合类型。
下面的定义是错误的:
type
Num_p=setof200..400; //虽然只有201一个元素,但256—400这些数值超过了255
2.集合类型的使用。
【例6-2】编写一个判断字符串中是否有元音字母的程序,程序的设计界面如图6-3所
示。程序运营时,在【输入单词】编辑框中输入一个任意单词,然后单击【判断】按钮,将在【结果】编辑框中显示有无元音字母的文本。其中,元音字母为“a,e,i,o,u”,程序运营界面
如图6-4所示。规定用集合类型实现。
6.1.4记录类型的定义与使用
1.记录类型的定义
格式:
type
记录类型标记符=Record
字段1:类型1;
字段2 :类型2;
。。。
字段n:类型n;
end;
2.下面定义一个住院病人的记录类型,如下所示:
type
Patient=Record //说明这是记录类型
p_num:Integer; //字段1是病人的住院号,为整形数据
p_name:String; //字段2是病人的姓名,为字符串数据
p_pay:Boolean; //字段3是病人的付款情况,为布尔型数据
e
您可能关注的文档
- 2023年继续教育统计法考题.doc
- VTE及其危害性医学知识讲解.pptx
- 专题03 物质的组成和结构(讲练)-2024年中考化学二轮复习讲练测(全国通用)(原卷版).docx
- 信息必刷卷05(湖南省卷专用)(解析版).docx
- 重难点08 酸碱盐-2024年中考化学【热点·重点·难点】专练(江苏专用)(原卷版).docx
- 专项02 化学实验基本操作25题-2024年中考化学常考点必杀300题(安徽专用)(原卷版).docx
- 热点专题03 军事篇(国内部分)(解析版).docx
- 重难点02 碳和碳的氧化物-2024年中考化学【热点·重点·难点】专练(江苏专用)(原卷版).docx
- 重难点08 酸碱盐-2024年中考化学【热点·重点·难点】专练(江苏专用)(解析版).docx
- 专题3 古今中外历史上的思想解放运动(解析版).docx
- 2023年河北省保定市高碑店市卫生健康局公务员考试《行政职业能力测验》历年真题及详解.docx
- 2023年河北省保定市安国市信访局公务员考试《行政职业能力测验》历年真题及详解.docx
- 信息必刷卷03(广东省专用)(解析版).docx
- 信息必刷卷02(天津专用)(原卷版).docx
- 信息必刷卷03(安徽专用)(原卷版).docx
- 热点08 工艺流程题 -2024年中考化学【热点·重点·难点】专练(江苏专用)(解析版).docx
- 专题06 比较异同类选择题(含答题技巧,题型专练60题)(解析版).docx
- 专题09 推断题、工业流程题、溶解度曲线题(解析版).docx
- 信息必刷卷04(湖南专用)(解析版).docx
- 信息必刷卷01(福建专用)(原卷版).docx
最近下载
- (完整版)数学英文词汇大全.docx VIP
- 完整版本圣三国蜀汉传攻略.docx
- 第4课用联系的观点看问题2024-2025学年中职高教版2023哲学与人生.pptx VIP
- 高中化学_电化学复习专题教学设计学情分析教材分析课后反思 .pdf
- 广告标识牌采购投标方案(技术标360页).docx
- 测绘地理信息安全保障措施通用标准审查细则(试行).doc VIP
- 语文课程实践技能智慧树知到期末考试答案章节答案2024年广州大学.docx
- 现代汉语词性辨析练习及答案.doc
- 广东省安装工程综合定额2010.pdf VIP
- 外研社高中英语必修一 Unit 5 The monarch’s journey 教学设计.docx
文档评论(0)