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;

 

相关阅读 >>

Delphi 下 vclzip控件的简单使用

Delphi 异或加解密

Delphi api �c multibytetowidechar的用法

Delphi 判断窗体是否创建 存在

Delphi获取dos命令行输出函数 运行cmd命令并获取结果

Delphi url取得文件名

Delphi 打开webbrowser的选中文件路径

Delphi 让窗体自适应屏幕显示

Delphi 将 html 代码直接加入到 twebbrowser 组件中去

Delphi xe6取得android智能手机的电话号码等的终端信息

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

转载请注明出处：木庄网络博客 » delphi 数组与子界