Delphi枚举数据类型的应用

Enumerated 数据类型

//定义枚举数据类型

type

days=(sun,mon,tue,wed,thu,fri,sat);

colors=(red,yellow,blue,white,black,green);

//声明枚举变量

var

Week: days;

    FormColor: colors;

//赋值

Today := fri;

应用实例

procedure TForm1.btnEnumeratedClick(Sender: TObject);

type

  Week=(sun,mon,tue,wed,thu,fri,sat);

var

  Today: Week;

begin

   Today := fri;

   case Today of

     sun: Edit1.Text :='星期日';

     mon: Edit1.Text :='星期一';

     tue: Edit1.Text :='星期二';

     wed: Edit1.Text :='星期三';

     thu: Edit1.Text :='星期四';

     fri: Edit1.Text :='星期五';

     sat: Edit1.Text :='星期六';

   end;

end;