Convertendo um tipo Enum do Delphi em uma String

 

Aqui está como exibir em tempo de execução uma string representando um tipo enum do Delphi:

 

enum:

TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ;

 

uses TypInfo;

...

var

  s: string;

begin

  s := GetEnumName(TypeInfo(TProgrammerType),

    integer(tpDelphi));

//s='tpDelphi'