delphi 数组与子界


本文整理自网络,侵删。

 数组与子界
type
TABC = 'A'..'G'; {定义子界}
var
abcArr: array[TABC] of Integer; {定义数组}
abc: TABC; {定义子界变量}
begin
{数组赋值}
abcArr['A'] := 11;
abcArr['B'] := 22;
abcArr['C'] := 33;
abcArr['D'] := 44;
abcArr['E'] := 55;
abcArr['F'] := 66;
abcArr['G'] := 77;

{调用数组}
ShowMessage(IntToStr(abcArr['G'])); {77}

{遍历数组}
for abc := Low(abcArr) to High(abcArr) do
begin
ShowMessage(IntToStr(abcArr[abc])); {11 22 33 44 55 66 77}
end;
end;

相关阅读 >>

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi 谷歌api文本转换语音mp3文件

Delphi bmp jpg 转换保存

Delphi滚动窗口标题

Delphi 隐藏文件夹

Delphi实现阿里云印刷文字识别_身份证识别

Delphi 处理以逗号分隔的长字符串

Delphi10.3通过rest单元使类和json数据互相转换

Delphi gif 动画建立

rightstr 返回字符串右边指定个数的新字符(串)

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



打赏

取消

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

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

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

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

评论

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