下面的代码可以将浮点型的数据在用户界面中显示为带千分号格式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;
可以在用户界面中指定那个float的字段格式
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;