delphi 枚举数组

本文整理自网络，侵删。

 
unit umy;

interface

type
  TMode = (Model, Mode2, Mode3);

const
  sMode: array[TMode] of string = (//
    '模式1', //
    '模式2', //
    '模式3'//
    );

implementation

end.


//引用 模式2
 Text := sMode[TMode(1)]

Text1 := sMode[Mode2];

combobox初始

procedure Getinit;
var
  i, c: integer;
begin
  ModeState.Items.Clear;
  c := Length(sMode);
  for i := 0 to c - 1 do
  begin
    ModeState.Items.Add(sMode[TMode(i)]);
  end;
  ModeState.ItemIndex := 0;
end;
――――――――――――――――

原文链接：https://blog.csdn.net/ozhy111/article/details/90765640
 

相关阅读 >>

Delphi 语法基础: 使用不同的数据类型标记数组

Delphi 万能模糊查询

Delphi 双击richedit高亮所有关键字

Delphi xe2 新增 system.zip 单元, 可用一句话压缩整个文件夹了

Delphi 如何从html格式的字符串中提取纯文本？

Delphi memo1 数字列设定取值范围

Delphi将excel导入access

Delphi sender 的用法举例

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi richedit接受消息的问题

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

转载请注明出处：木庄网络博客 » delphi 枚举数组