频道分类

delphi 枚举数组

作者:admin 来源: 日期:2020/3/22 23:18:16 人气: 标签:

 
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的枚举类型下一篇:没有资料