delphi 数组与枚举


本文整理自网络,侵删。

 数组与枚举
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;

相关阅读 >>

Delphi checklistbox 用法

Delphi如何检测form的移动和调整尺寸事件

Delphi 计算加班时间工时的函数

Delphi 匹配中文的正则表达式

Delphi判断某个程序是否已经启动

Delphi winapi: getwindowthreadprocessid - 获取指定窗口的进程 id 或线程 id

Delphi 的字符串在 firemonkey 模式下

Delphi读取xml文件

Delphi弹出信息框大全

Delphi 二进制转换为文本

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...