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

推荐分享