- 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;
数组与枚举
最新推荐文章于 2023-03-12 08:41:55 发布