Código Delphi [-] var i: Integer; begin for i:= 0 to IBQuery1.FieldCount -1 do if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00'; end;
var i: Integer; begin for i:= 0 to IBQuery1.FieldCount -1 do if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00'; end;