[TRUCO DELPHI] Convertir de tipo enumerado a Cadena y
Entero.
Hay que adicionar la unidad System.TypInfo
type TEnumConverter = class public class function EnumToInt<T>(const EnumValue: T): Integer; class function EnumToString<T>(EnumValue: T): string; end; class function TEnumConverter.EnumToInt<T>(const EnumValue: T): Integer; begin Result := 0; Move(EnumValue, Result, sizeOf(EnumValue)); end; class function TEnumConverter.EnumToString<T>(EnumValue: T): string; begin Result := GetEnumName(TypeInfo(T), EnumToInt(EnumValue)); end;
Saludos!
@Sir.dev.a.lot me debes 10