GetEnumName应用

来源：互联网发布：平安车险计算器软件编辑：程序博客网时间：2024/06/05 02:06

GetEnumName和GetEnumValue

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

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

p := GetTypeData(TypeInfo(TWindowState));

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

文章出处：DIY部落(http://www.diybl.com/course/4_webprogram/asp.net/netjs/20071114/86023.html)

GetEnumValue,GetEnumName函数

GetEnumValue,GetEnumName函数：

uses typinfo;

procedure TForm1.Button1Click(Sender: TObject);
var
c : TFieldType;
begin
c := ftString;
//根据enum得到字符串
showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
// 根据字符串得到枚举类型
c := TFieldType(GetEnumValue(Typeinfo(TFieldType),'ftInteger'));
showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
end;