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应用程序(exe)的大小

Delphi mscomm1自动获取串口

Delphi检查是否在64位windows环境中运行？

Delphi中复制线程

Delphi winapi: setlayeredwindowattributes - 设置窗口的透明

Delphi getfilehashmd5获取文件 hashmd5值

Delphi repeat until 随机插入

Delphi unigui 调用js

Delphi 10.3.1 android沉浸式透明状态栏

Delphi 几个实用的html解析函数

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

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