0
点赞
收藏
分享

微信扫一扫

枚举类型如何转换成字符串类型

ZSACH 2022-10-24 阅读 169
编程语言

uses
TypInfo;

type
TTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX);

procedure TForm1.Button1Click(Sender: TObject);
var
ti: PTypeInfo;
td: PTypeData;
i: Integer;
begin
ti := TypeInfo(TTest);
td := GetTypeData(ti);
for i := td^.MinValue to td^.MaxValue do
ListBox1.Items.Add(GetEnumName(ti, i));
end;

举报

相关推荐

0 条评论