遍历枚举类型的值

uses System.TypInfo;

type
  Taa=(aa,bb,cc,dd);
procedure Button1Click(Sender: TObject);
var
  piType:PTypeInfo;
  s:string;
  i:Integer;
begin
  piType := TypeInfo(Taa);
  with GettypeData(piType)^ do
  begin
    for i := MinValue to MaxValue do
    begin
      s := GetEnumName(piType,i);
      ShowMessage(s);
    end;
  end;
end;