Boa Rubem
Foi dai que tirei estas funções
type
TAcao =
(txNone,txIncluir,txAlterar,txConsultar,txExcluir,txImprimir,txMenu,txAutoriza,txCancela);
type
TStatus = (stNone, stEm_Aberto, stEncerrado, stCancelado, stBloqueado,
stAprovado, stEm_Analise, stRenegociar,
stConcluida, stAguardando_Recebimento);
function RetornaNomeAcao(Acao : TAcao):String;
begin
Result := StringReplace(GetEnumName(TypeInfo(TAcao), integer(Acao)),
'tx','',[rfReplaceAll]);
end;
function RetornaTxtStatus(Status : TStatus):String;
begin
Result := StringReplace(GetEnumName(TypeInfo(TStatus), integer(Status)),
'st','',[rfReplaceAll]);
Result := StringReplace(Result, '_',' ',[rfReplaceAll]);
end;
abraço!
Marcos Bernardo
2009/8/11 Rubem Rocha <rubem.ro...@dtmanaus.com.br>
>
>
> Quem procura acha!
>
> http://www.swissdelphicenter.ch/torry/showcode.php?id=389
>
> Adapte a dica para as suas necessidades.
>
> Sds.
>
> P.S.: A propósito, como você vai constar na dica acima, o q vc quer na
> verdade não se trata de typecast.
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Dirceu Vasson Jr
> Enviada em: terça-feira, 11 de agosto de 2009 11:33
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: [delphi-br] TypeCast: Type para string
>
> Olá a todos
>
> Há alguma maneira de converter o nome de um tipo para string?
>
> type
> TProcesso= (pEntrada, pSaida, pVistoria, ...);
> ...
>
> procedure ......(Processo: TProcesso);
> STR: TStrings;
> begin
> STR:= TStringlist.Create;
> STR.Add(Processo);
> ...
> end;
>
> Grato
> Dirceu Vasson
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Marcos A. de A. Bernardo
xmarcos....@gmail.com
11 - 9462-2657 / 11- 3205-1499
http://bagusconsultoria.wordpress.com/
[As partes desta mensagem que não continham texto foram removidas]
