枚举类型的定义和应用

1.枚举类型定义：

 

TYPE
  days     = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);  //枚举类型,属于顺序类型，序号从0开始
  colors   =(red,yellow,blue,green,black);                               //可以同时多个枚举类型定义
  //下面定义方法是错误的
  days_e1  =('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');   //错误：枚举类型元素只能是标识符;
  days_e2  =(1,2,3,4,5,6,7);  //错误：枚举类型元素只能是标识符;
  colors_e1=(red,yellow,white)//错误：枚举类型中元素不能和其他的元素相同;

 

2.类型类型可以用 顺数函数ord,pred,succ,low,high操作

var
  week  : days;
  color : colors;
  temp :Variant;
begin
//  temp:=Ord(Monday);       //返回 1
//  temp:=Pred(Tuesday);     //返回 1
//  temp:=Pred(Sunday);      //返回 255
//  temp:=Succ(Tuesday);     //返回 3
//  temp:=Succ(saturday);    //返回 7
//  temp:=Low(week);         //返回 0
//  temp:=High(week);        //返回 6

  ShowMessage(temp);
end;

 

 3.枚举类型变量只能进行赋值运算和关系运算，不能进行算术运算和逻辑运算。

//合法性：
  week := Sunday;
  if week=Sunday then write('rest');
//不合法的:
  Sunday := 1;           //错把枚举值当成变量名；
  days   := blue；       //枚举值blue不属于枚举变量weekday的值域；
  read(color);           //枚举类型变量 不能用读语句进行赋值；
  write(week); writeln(blue);//不能通过写语句输出枚举类型的变量值和枚举值。

 

4.枚举类型应用：

  temp:=StrToInt(Edit1.Text);
  case temp of
    0:week:=Sunday;
    1:week:=Monday;
    2:week:=Tuesday;
    3:week:=Wednesday;
    4:week:=Thursday;
    5:week:=Friday;
    6:week:=Saturday;
  end;