Exibir descrição ao invez de código

Delphi

09/10/2006

Olá a todos.

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

Marcelo

Curtidas 0

Respostas

Macario

Macario

09/10/2006

Ola.

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
Marcelo

Marcelo

09/10/2006

Ola. 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)


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
Marcelo

Marcelo

09/10/2006

Prezado Macario.

Obrigado pela ajuda.

Consegui resolver o problema.

Valeu!


GOSTEI 0
POSTAR