万一老师博客:http://www.cnblogs.com/del/archive/2008/01/09/1031196.html
----------------------------------------------------------------------------------------
type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); {定义枚举} var weekArr: array[TMyEnum] of string; {定义数组} myEnum: TMyEnum; {定义枚举变量} begin {数组赋值} weekArr[Monday] := ‘星期一‘; weekArr[Tuesday] := ‘星期二‘; weekArr[Wednesday] := ‘星期三‘; weekArr[Thursday] := ‘星期四‘; weekArr[Friday] := ‘星期五‘; weekArr[Saturday] := ‘星期六‘; weekArr[Sunday] := ‘星期天‘; {调用数组} ShowMessage(weekArr[Sunday]); {星期天} {遍历数组} for myEnum := Low(weekArr) to High(weekArr) do begin ShowMessage(weekArr[myEnum]); {将分别显示: 星期一 ... 星期天} end; end;
时间: 2024-10-10 08:15:09