要定义并用枚举类型,分为两步
1 定义
eg:
type color=(blue,green,black,white,maroon);
析:定义了一个名为color的枚举类型,其可能的值为
blue,green,black,white,maroon.它可放在实现部分(implementation)前。
2 声明变量赋值
由于在编译的过程 中,编译器会按照这些枚举常量的顺序依次赋值为0,1,2,3,4.所以,在赋值中可以用下面的语句。
var
mycolor:color;
mycolor:=0; 此处,也可以写成 mycolor:=blue;
可以用ord(),这一函数来验证一下,
eg
mycolor:=blue;
showmessage(inttostr(ord(c)));
1 定义
eg:
type color=(blue,green,black,white,maroon);
析:定义了一个名为color的枚举类型,其可能的值为
blue,green,black,white,maroon.它可放在实现部分(implementation)前。
2 声明变量赋值
由于在编译的过程 中,编译器会按照这些枚举常量的顺序依次赋值为0,1,2,3,4.所以,在赋值中可以用下面的语句。
var
mycolor:color;
mycolor:=0; 此处,也可以写成 mycolor:=blue;
可以用ord(),这一函数来验证一下,
eg
mycolor:=blue;
showmessage(inttostr(ord(c)));