[fpc-pascal] Enum RTTI

[Wimpie Nortje]

Thanks, I will try this

Wolfram Kläger wrote:
> Wimpie,
>
> maybe you want to try:
>
> uses
>   typinfo;
>
> // implementation
>
> function Str(const AEnum : TEnum) : String; overload;
> begin
>   Result := GetEnumName(TypeInfo(TEnum), ord(AEnum));
> end;
>
> I usually declare one such overload per enum type. If you are using sysutils.Str, you have to avoid conflicts by chosing a different function name, e.g. EnumStr.
>
>
>