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**************}