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;