擷取Delphi中定義的枚舉類型的名稱和值

    利用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;