GetEnumName应用

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;