[delphi-br] TypeCast: Type para string

2009-08-11 Por tôpico Dirceu Vasson Jr 
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]

RES: [delphi-br] TypeCast: Type para string

2009-08-11 Por tôpico Rubem Rocha 
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 [mailto:delphi...@yahoogrupos.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
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]

Re: [delphi-br] TypeCast: Type para string

2009-08-11 Por tôpico Marcos Bernardo 
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]