Fórum Exibir descrição ao invez de código #330930
09/10/2006
0
Estou precisando apresentar em um grid, a descrição de um determinado código. Por exemplo: O código 1 representa entrada e o código 2 representa saida. Como faço para que ao invés de aparecer 1 ou 2 na tupla do grid, apareça a palavra ´SAIDA´ ou ´ENTRADA´?
Lembrando que não existe entidade para fazer referencia. Estou utilizando tabelas paradox.
Pode ser utilizando comandos SQL ou no Delphi mesmo, tanto faz.
Obrigado.
Marcelo
Curtir tópico
+ 0Posts
09/10/2006
Macario
Tente utilizar o metodo onGetText do TField.
begin case Tabela.fieldByName(´Campo´).asInteger of 1: Text := ´Entrada´; 2: Text := ´Saida´; end; end;
Espero que lhe ajude.
8)
Gostei + 0
09/10/2006
Marcelo
begin case Tabela.fieldByName(´Campo´).asInteger of 1: Text := ´Entrada´; 2: Text := ´Saida´; end; end;
Olá Macario.
Coloquei o seguinte código:
procedure TdmConFin.qryEntradaSaidaDESTINOGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin case Sender.asInteger of 1 : Text := ´Entrada´; 2 : Text := ´Saida´; end; end;
Mas não deu certo, o grid ainda continua exibindo os codigos.
Gostei + 0
09/10/2006
Marcelo
Obrigado pela ajuda.
Consegui resolver o problema.
Valeu!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)