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;