[Neftali [Germán.Estévez]]

Código Delphi [-]
TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ;


uses TypInfo;
var s: string;
s := GetEnumName(TypeInfo(TProgrammerType),
                  integer(tpDelphi)) ;

//s tendrá la cadena 'tpDelphi'

Vía about.com