遍历枚举类型

uses TypInfo;{以 TAlign 为例}procedure TForm1.Button1Click(Sender: TObject);var enum: TAlign; i: Integer; str: string;begin Memo1.Clear; for enum := Low(TAlign) to High(TAlign) do begin i := ord(enum); //Integer(enum) str := GetEnumName(TypeInfo(TAlign), i); Memo1.Lines.Add(Format('%d : %s', [i, str])); end;end;{*************0 : alNone1 : alTop2 : alBottom3 : alLeft4 : alRight5 : alClient6 : alCustom**************}