标签：hat 元素 数组 序号 date end 函数 tuesday yellow
在看delphi程序的时候看到aa=(a,b,c,d);这样的东西，还以为是数组，同事说是函数，呵呵，当然这两个都不屑一击，原来这样式子是在声明并付值一个枚举类型的数据。下边写下来DELPHI中枚举类型数据的介绍和使用方法。见笑。。
------------------------------------------------------
枚举类型
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.
枚举类型是一种有序类型，所以枚举类型的变量可以作为循环变量。
标签：hat 元素 数组 序号 date end 函数 tuesday yellow
原文地址：https://www.cnblogs.com/blogpro/p/11345181.html
