本文整理自网络，侵删。
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 decodeutf8str解决系统自带utf8解码缺陷
更多相关阅读请进入《Delphi》频道 >>
