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'