首页 > 代码库 > Delphi基本类型--枚举 子界 集合 数组
Delphi基本类型--枚举 子界 集合 数组
[plain] view plain copy<strong>根据枚举定义集合 </strong> TMyColor = (mcBlue, mcRed); TMyColorSet = set of TMyColor ; [plain] view plain copy<strong>根据枚举定义数组</strong> type TMyEnum = (red,green,blue); {定义枚举} procedure TForm1.Button1Click(Sender: TObject); const ColorArr: array[TMyEnum] of string=(‘红‘,‘绿‘,‘蓝‘); {定义数组} var myEnum: TMyEnum; {定义枚举变量} begin for myEnum := Low(ColorArr) to High(ColorArr) do begin ShowMessage(ColorArr[myEnum]); //myEnum变化时,就得到它对应的描述 end; [plain] view plain copy<strong>枚举类型</strong> Pascal程序不仅用于数值处理,还更广泛地用于处理非数值的数据。例如,性别、月份、星期几、颜色、单位名、学历、职业等。 1、枚举类型的定义 格式: type 枚举类型标识符=(标识符1,标识符2,…,标识符n) 2、枚举类型数据特点 ① 枚举元素只能是标识符; 例如,下列类型定义是合法的: type days=(sun,mon,tue,wed,thu,fri,sat); colors=(red,yellow,blue,white,black,green); 而下列类型定义是错误的: type colortype=(‘red‘,‘yellow‘,‘blue‘,‘white‘); numbers=(1,3,5,7,9); 定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域(取值范围)。 ② 枚举类型属于顺序类型 根据定义类型时各枚举元素的排列顺序确定它们的序号,且序号从0开始。 例如,定义type days=(sun,mon,tue,wed,thu,fri,sat); 则, ord(sun)=0,ord(mon)=1,……,以此类推。 枚举类型中的第一个元素无前趋,最后一个元素无后继。 pred(sat)=fri; succ(sun)=mon; ord(sat)=6; ③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的: type color1=(red,yellow,white); color2=(blue,red,black); 因为red属于枚举类型color1和 color2 ④ 枚举类型变量只能进行赋值运算和关系运算,不能进行算术运算和逻辑运算。 在枚举元素比较时,实际上是对其序号的比较。 例如定义如下: type days=(sun,mon,tue,wed,thu,fri,sat); colors=(red,yellow,blue,white,black,green); var color:colors; weekday:days; 则下面语句是合法的: weekday:=mon; if weekday=sun then write(‘rest‘); 而下面语句是不合法的: mon:=1; 错把枚举值当成变量名; weekday:=blue; 枚举值blue不属于枚举变量weekday的值域; read(color); 枚举类型变量 不能用读语句进行赋值; write(weekday); writeln(blue);不能通过写语句输出枚举类型的变量值和枚举值。 ⑤ 可以把变量的说明与类型的定义合并在一起,如: var holiday,workday:(sun,mon,tue,wed,thu,fri,sat); color:(red,yellow,blue,white,black,green); 对枚举数据的输入与输出可通过间接方式进行。输入时,一般可输入一个代码,通过程序进行转换,输出时,也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。 二、枚举类型的应用 例1、输入今天是星期几的序号,输出明天是星期几的英文单词(星期天序号为0)。 type weekday=(sun,mon,tue,wed,thu,fri,sat); var i : integer; today,tomorrow : weekday; begin writeln(‘What date is it‘); readln(i); case i of { 根据输入转换成枚举型 } 0:today:=sun; 1:today:=mon; 2:today:=tue; 3:today:=wed; 4:today:=thu; 5:today:=fri; 6:today:=sat; end; if (today=sat) then tomorrow:=sun else tomorrow:=succ(today); write(‘The tomorrow is ‘); case tomorrow of sun:writeln(‘sunday‘); mon:writeln(‘monday‘); tue:writeln(‘tuesday‘); wed:writeln(‘wednesay‘); thu:writeln(‘thursday‘); fri:writeln(‘friday‘); sat:writeln(‘saturday‘); end; end. 枚举类型是一种有序类型,所以枚举类型的变量可以作为循环变量。 [plain] view plain copy<strong>子界类型</strong> 如果我们定义一个变量为integer型,那么它的取值范围一般为-32768~32767。而事实上,每个程序中所用的变量的值都有一个确定的范围。 例如,人的年龄一般为1到120岁,一年中的月数为1到12月,一月中的天数为1到31天等等。 如果能在程序中对所用的变量的值域作具体规定,就便于检查出那些不合法的数据,这就能更好地保证程序运行的正确性且在一定程度上节省内存空间。 子界类型能很好解决上面的问题。此外,在数组的定义中,常用到子界类型,以规定数组下标的范围。 1、定义格式: type 子界类型标识符=常量1..常量2 常量1称为子界的下界,常量2称为子界的上界; ①下界和上界必须是同一顺序类型(该类型称为子界类型的基类型),且上界的序号必须大于下界的序号。 例如 type age=1..100; letter=‘a‘ ..‘z‘; ②可以直接在变量说明中定义子界类型。如: type letter=‘a‘..‘ z ‘; var ch1,ch2:letter; 可以合并成: var ch1,ch2:‘a‘..‘d‘; 2、子界类型数据的运算规则 ①凡可使用基类型的运算规则同样适用该类型的子界类型。 例如,可以使用整型变量的地方,也可以使用以整型为基类型的子界类型数据。 ②对基类型的运算规则同样适用于该类型的子界类型。 例如,div,mod要求参加运算的数据为整, 因而也可以为整型的任何子界类型数据。 ③基类型相同的不同子界类型数据可以进行混合运算。 例如:设有如下说明: var x:1..100; y:1..500; z:1..1000; a:integer; 则下列语句是合法的: a:=Sqr(x)+y+z; z:=x+y 下列语句: y:=x+z+a; 当x+y+a的值在1~500范围内时是合法的,否则会出错。 三、子界类型应用举例 例1、使用子界型情况语句,当输入月、日、年(10 30 1986),输出30 Oct 1986。 var month:1..12; day:1..31; year:1900..2003; begin write(‘Enter date(mm dd yy):‘); readln(month,day,year); write(day); case month of 1:write(‘Jan‘:5); 2:write(‘Feb‘:5); 3:write(‘Mar‘:5); 4:write(‘Apr‘:5); 5:write(‘May‘:5); 6:write(‘Jun‘:5); 7:write(‘Jul‘:5); 8:write(‘Aug‘:5); 9:write(‘Sep‘:5); 10:write(‘Oct‘:5); 11:write(‘Nov‘:5); 12:write(‘Dec‘:5); end; writeln(year:7); end. 例2、将一个四位的十六进制数转换成十进制数。 Var ch:char; n:1..4; d1,d2,d3,d4,t:0..15; s:real; Begin Write(‘The hex number is ‘); For n=1 to 4 do Begin { 把四位的十六进制数分四次作为字符读入 } Read(ch); write(ch); { 分别转换为十进制的数d1,d2,d3,d4, } if (ch>=‘0‘) and (ch<=‘9‘)then t:=ord(ch)-48; if (ch>=‘a‘) and (ch<=‘z‘)then t:=ord(ch)-87; if (ch>=‘A‘) and (ch<=‘Z‘)then t:=ord(ch)-55; case n of 1:di:=t; 2:d2:=t; 3:d3:=t; 4:d4:=t; end, end; s:=d1*16*16*16+d2*16*16+d3*16+d4; writeln(‘dec:‘,s) end.
数组type TBigByteArray = array [0 .. MaxInt - 1] of byte TBytes = TBigByteArray; PBigByteArray = ^TBigByteArray;var PText: PBigByteArray //方法一:指针操作 分配空间 GetMem(PText, 10);//方法二:动态数组定义 推荐这种方式,代码简洁多了 TextArr: array of byte; SetLength(TextArr, 10);
Delphi基本类型--枚举 子界 集合 数组
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。