第7章 枚举子界与集合类型.pptVIP

如：type color=（red，blue，green，yellow，white，blank）； week=（sun，mon，tue，wed，thu，fri，sat）； 2、变量定义 var c1，c2：color； day：week； 3、变量引用 C1:=red; Day:=sun; 4、输出 不能直接输出 case day of sun：label1.captio：=‘sunday’；…… 注：枚举类型变量可以作为case中的选择器表达式变量 设计步骤如下： (1) 应用程序用户界面的建立与对象属性的设置参见图7-1； （2）通用过程mday（day）：根据参数day给出函数mday的英文星期几的信息； form1的create事件产生year、month、day，程序主要是取day。 函数 dayofweek（now），包含两个函数，now返回系统当前日期和时间，dayoftime（now）返回星期数；p43 (3) 定义枚举类型和通用过程； 1) 按〈F12〉键切换到代码编辑器窗口。将光标移到implementation的下一行，{$R *.DFM}的上一行。 implementation type week=(sun,mon,tue,wed,thu,fri,sat); {$R *.dfm} function mday(day:week):string; //返回星期几的英文，通用过程 begin case day of sun: mday:=sun; mon: mday:=mon; tue: mday:=tue; wed: mday:=wed; thu: mday:=thu; fri: mday:=fri; sat: mday:=sat; end; end; procedure TForm1.Button1Click(Sender: TObject); var today,yesterday,tomorrow:week; n:integer; begin n:=dayofweek(now); case n of 1:today:=sun; //枚举类型赋值 2:today:=mon; 3:today:=tue; 4:today:=wed; 5:today:=thu; 6:today:=fri; 7:today:=sat; end; button1单击事件作为button2、button3的共享事件 if today=low(week) then yesterday:=high(week) else yesterday:=pred(today); if today=high(week) then tomorrow:=low(week) else tomorrow:=succ(today); button1.caption:=yesterday; button2.caption:=today; button3.caption:=tomorrow; case (sender as tbutton).Tag of 0: button1.caption:=mday(yesterday); 1:button2.caption:=mday(today); 2:button2.caption:=mday(tomorrow); end; end; procedure TForm1.FormCreate(Sender: TObject); var year,month,day:word; begin decodedate(date,year,month,day); panel1.caption:=inttostr(year)+inttostr(month)+inttostr(day); end; 枚举用例——图形变换 界面设计： shape1（additional）显示几何图形构件，边框属性pen.width; button1， button2， button3 形状、颜色、结束按钮 补充的一些知识： 对象shape： 形状、颜色属性为shape和color 属性shape：为枚举类型，系统命名tshapetype tshapetype=（stcircle，stellipse，……，stq