[ingabraham]

Empezado por oesqueda

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.

FieldType
me dice que no lo reconoce, ni displayformt
lo probe utilizando un dataset

compañero pero yo mas que todo uso el query en mis consultas. como seria