Delphi 枚举转字符串

implementation  Uses TypInfo;

procedure TForm3.FormCreate(Sender: TObject);
//定义枚举类型
type
  TDayOfWeek=(Monday,Tuesday,Wednesday,Thursday,FriDay,Saturday,Sunday);
var
  s: string;
  aWeek:TDayOfWeek;
begin           
ShowMessage('枚举字符串：' + GetEnumName(TypeInfo(TDayOfWeek),      0)   );
ShowMessage('枚举字符串：' + GetEnumName(TypeInfo(TDayOfWeek),Ord(Monday)));
   aWeek:=Monday;
ShowMessage('枚举字符串：' + GetEnumName(TypeInfo(TDayOfWeek),Ord(aWeek)));
end;

GetEnumName(TypeInfo( System.TTypeKind), ord( pMethod.ReturnType.TypeKind));