Formata��o

Question

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

Joaoshi · Answer

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.

Thiago Vidal · Answer

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;

Luciano.sul · Answer

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

Luciano.sul · Answer

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