枚举类型定义及例子

来源：投聚财经

枚举类型
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 开始。

枚举类型中的第一个元素无前趋，最后一个元素无后继。

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);

通过程序进行转换，输出时，也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。
对枚举数据的输入与输出可通过间接方式进行。输入时，一般可输入一个代码，
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.

枚举类型是一种有序类型，所以枚举类型的变量可以作为循环变量。

学习枚举类型时，注意枚举元素与变量的区别，以及枚举与变量的输入输出方法的处理。

枚举类型例子

枚举类型属于序数类型，但我们有时需要确定我们定义的枚举类型中的元素个数
初始值”时才有意义。在 Delphi 中有两种方法可以做到：
，也就是枚举类型的取值范围，但讨论这个问题的前提是“不要指定枚举元素的

usesTypInfo;

procedure TForm1.BtnTestClick(Sender: TObject);
var
p: PTypeData;
i: Integer;
s: String;
pt: PTypeInfo;
begin
;
pt:= TypeInfo(TWindowState);
if pt.Kind <> tkEnumerationthen begin
ShowMessage('不是枚举类型');
Exit;
end;
p :=GetTypeData(TypeInfo(TWindowState));

//将获取的枚举类型信息，以“枚举名=枚举值”的形式加入到 ListBox 中
;
try
for i := p.MinValue to p.MaxValue do begin
S := GetEnumName(pt,i);
:= IntToStr(GetEnumValue(pt, S));
end;
finally
;
end;
end;

使用RTTI，速度会慢一些，如果整个程序在运行过程中并不需要RTTI，可以使用下面的方法。

方法二：使用 Low()，High()，Ord() 系统函数。使用该方法依然不要指定枚举

元素初始值。

procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
begin
i:= Ord(Min);
j := Ord(Max);

ShowMessage(IntToStr(i)+ ' ' + IntToStr(j) + ' ' + IntToStr(Count)); end;

显示全文

全部频道

枚举类型定义及例子