procedure Tform1.ADOQuery1AfterOpen(DataSet: TDataSet); var I: Integer; begin for I := 0 to DataSet.Fields.Count - 1 do case DataSet.Fields[I].DataType of ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD: TNumericField(DataSet.Fields[I]).DisplayFormat := '#,##0.00'; end; end; ----------------------------------------------------------- 或者更简单一些,设置数字型字段的DisplayFormat为 #,##0.00
var
I: Integer;
begin
for I := 0 to DataSet.Fields.Count - 1 do
case DataSet.Fields[I].DataType of
ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD:
TNumericField(DataSet.Fields[I]).DisplayFormat := '#,##0.00';
end;
end;
-----------------------------------------------------------
或者更简单一些,设置数字型字段的DisplayFormat为 #,##0.00