[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程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。
、枚举类型的定义
格式: type 枚举类型标识符=(标识符1,标识符2,…,标识符n)
、枚举类型数据特点
① 枚举元素只能是标识符；
例如，下列类型定义是合法的：
type days=(sun,mon,tue,wed,thu,fri,sat);
colors=(red,yellow,blue,white,black,green);
而下列类型定义是错误的:
type colortype=('red','yellow','blue','white');
numbers=(,,,,);
定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。
② 枚举类型属于顺序类型
根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。
例如，定义type days=(sun,mon,tue,wed,thu,fri,sat);
则， ord(sun)=,ord(mon)=,……，以此类推。
枚举类型中的第一个元素无前趋，最后一个元素无后继。
pred(sat)=fri; succ(sun)=mon; ord(sat)=;
③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:
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:=; 错把枚举值当成变量名；
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 { 根据输入转换成枚举型 }
:today:=sun;
:today:=mon;
:today:=tue;
:today:=wed;
:today:=thu;
:today:=fri;
: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型，那么它的取值范围一般为-～。而事实上，每个程序中所用的变量的值都有一个确定的范围。 例如，人的年龄一般为1到120岁，一年中的月数为1到12月，一月中的天数为1到31天等等。
如果能在程序中对所用的变量的值域作具体规定，就便于检查出那些不合法的数据，这就能更好地保证程序运行的正确性且在一定程度上节省内存空间。
子界类型能很好解决上面的问题。此外，在数组的定义中，常用到子界类型，以规定数组下标的范围。
、定义格式：
type 子界类型标识符=常量1..常量2
常量1称为子界的下界，常量2称为子界的上界；
①下界和上界必须是同一顺序类型（该类型称为子界类型的基类型），且上界的序号必须大于下界的序号。
例如 type age=..;
letter='a' ..'z';
②可以直接在变量说明中定义子界类型。如：
type letter='a'..' z ';
var ch1,ch2:letter;
可以合并成:
var ch1,ch2:'a'..'d';
、子界类型数据的运算规则
①凡可使用基类型的运算规则同样适用该类型的子界类型。
例如，可以使用整型变量的地方，也可以使用以整型为基类型的子界类型数据。
②对基类型的运算规则同样适用于该类型的子界类型。
例如，div，mod要求参加运算的数据为整, 因而也可以为整型的任何子界类型数据。
③基类型相同的不同子界类型数据可以进行混合运算。
例如：设有如下说明：
var x:..;
y:..;
z:..;
a:integer;
则下列语句是合法的： a:=Sqr(x)+y+z; z:=x+y
下列语句: y:=x+z+a; 当x+y+a的值在1～范围内时是合法的，否则会出错。
三、子界类型应用举例
例1、使用子界型情况语句，当输入月、日、年( )，输出30 Oct 。
var month:..; day:..; year:..;
begin
write('Enter date(mm dd yy):'); readln(month,day,year); write(day);
case month of
:write('Jan':);
:write('Feb':);
:write('Mar':);
:write('Apr':);
:write('May':);
:write('Jun':);
:write('Jul':);
:write('Aug':);
:write('Sep':);
:write('Oct':);
:write('Nov':);
:write('Dec':);
end;
writeln(year:);
end.
例2、将一个四位的十六进制数转换成十进制数。
Var ch:char; n:..; d1,d2,d3,d4,t:..; s:real;
Begin
Write('The hex number is ');
For n= to do
Begin { 把四位的十六进制数分四次作为字符读入 }
Read(ch); write(ch); { 分别转换为十进制的数d1,d2,d3,d4, }
if (ch>='') and (ch<='')then t:=ord(ch)-;
if (ch>='a') and (ch<='z')then t:=ord(ch)-;
if (ch>='A') and (ch<='Z')then t:=ord(ch)-;
case n of
:di:=t;
:d2:=t;
:d3:=t;
:d4:=t;
end,
end;
s:=d1***+d2**+d3*+d4;
writeln('dec:',s)
end.