获取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;