获取Delphi中定义的枚举类型的名称和值

阅读更多

利用TypInfo单元的GetEnumName和GetEnumValue可以遍历任意枚举类型，并获取其名称和值。下面是示例Demo。

procedureTForm1.btnTestClick(Sender:TObject);
var
p:PTypeData;
i:Integer;
s:String;
pt:PTypeInfo;
begin
ListBox1.Items.Clear;
pt: = TypeInfo(TWindowState);
if pt.Kind <> tkEnumerationthenbegin
ShowMessage( ' 不是枚举类型 ' );
Exit;
end;

p: = GetTypeData(TypeInfo(TWindowState));

// 将获取的枚举类型信息，以枚举名=枚举值的形式加入到ListBox中
ListBox1.Items.beginUpdate;
try
for i: = p.MinValuetop.MaxValue do begin
S: = GetEnumName(pt,i);
ListBox1.Items.Values[S]: = IntToStr(GetEnumValue(pt,S));
end;
finally
ListBox1.Items.EndUpdate;
end;
end;

版权声明：本文为博主原创文章，未经博主允许不得转载。