unit uEnumConverter; interface type * TEnum = record * public * * class function AsString(aEnum: T): string; static; * * class function AsInteger(aEnum: T): Integer; static; * end; implementation uses * * * TypInfo * * ; { TEnum } class function TEnum.AsString(aEnum: ...
More...