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