{ Problema: Tenho um sistema de contas a receber, onde um campo chamado "Tipo" contém um número inteiro que indica o tipo do documento conforme abaixo: 1 - Promissória 2 - Duplicata 3 - Boleto Gostaria que, ao exibir os dados (num DBGrid por exemplo), fosse exibido o nome e não o número, ou seja, "Promissória" em vez de "1". Solução: Isto pode ser feito de várias formas, mas aqui vou mostrar como resolver usando o evento OnGetText do TField. Vejamos: - Adicione todos os campos no Field Editor; - Clique no campo "Tipo"; - Vá ao Object Inspector e dê um duplo-click no evento OnGetText; - Neste evento, digite o código abaixo: } procedure TForm1.Table1TipoGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if DisplayText then begin case Table1Tipo.AsInteger of 1: Text := 'Promissória'; 2: Text := 'Duplicata'; 3: Text := 'Boleto'; else Text := 'Desconhecido'; end; end else Text := Table1Tipo.AsString; end;
O conteúdo desta página pode ajudar alguém? Compartilhe!