Formatação

Delphi

22/03/2006

Bom dia a todos, eu estou com uma duvida. Tem como formatar um campo de uma query sem ter que adicionar o seu field.

Exemplo vou fazer uma consulta de clientes e gostaria que o campo codigo do cliente estivesse formatado (0000), mas não gostaria de adicionar este field na tabela.

Desde já muito obrigado

Luciano Ramos


Luciano.sul

Luciano.sul

Curtidas 0

Respostas

Joaoshi

Joaoshi

22/03/2006

Após abrir sua query, vc percorre todos os campos e uma das coisas que poderão ser feitas e informar o DisplayFormat

Exemplo:

for nContador := 0 to query.FieldCount - 1 do
begin
if query.Fields[nContador].DataType = ftFloat then
(query.Fields[nContador]as tFloatfield).displayformat := ´#,.00´;

if query.Fields[nContador].FieldName = ´Descri´ then
query.Fields[nContador].DisplayLabel := ´Descrição´;

if query.Fields[nContador].FieldName = ´NaoMostrar´ then
query.Fields[nContador].Visible := false;
end;

Espero ter ajudado.


GOSTEI 0
Thiago Vidal

Thiago Vidal

22/03/2006

você também poderia tentar, no evento AfterOpen:

procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
  with DataSet do
  begin
    (FieldByName(´Codigo´) as TNumericField).DisplayFormat := ´00000´;
    FieldByName(´...´).xxxx.....
  end;
end;



GOSTEI 0
Luciano.sul

Luciano.sul

22/03/2006

Pessoal muito obrigado pelas dicas eu vou testar e digo pra vcs mais tarde. Valeu mesmo... :D


GOSTEI 0
Luciano.sul

Luciano.sul

22/03/2006

Certinho pessoal, funcionou.
Muito obrigado pelas dicas... :D


GOSTEI 0
POSTAR