限制小数点后面位数该怎么写？

Question

比如double类型数据data1,将其小数点后位数限制为3位，再显示，怎么写。

Answer 1

str = FloatToStrF( d , ffFixed ,5 , 4 ); //说明FloatTostrF里5代表从第几个数字的后一
位开始四舍五入,4代表取4位小数。 //执行后得到str是123.4600Format('x=%.3f', [12.0]); //'x=12.000' //指定小数

Answer 2

eg
QRLabel43.Caption :=  floattostrf(DM1.TblGoodsOutDetail.FieldByName('cur_out_num').AsFloat,ffNumber,10,2);

Answer 3

Format
如果是string转换用FormatFloat

Answer 4

RoundTo
只能对常数使用
我要的是对变量的处理

Answer 5

to fwinef(花间) procedure TForm1.Button1Click(Sender: TObject);
var
  d0: Double;
begin
  d0 := 5.222354;
  Edit1.text := FloatToStr(RoundTO(d0, -2));
end;

Answer 6

RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24USE MathRoundTo(DATA1, -3)

Answer 7

edit1.Text := formatfloat('0.000',1.2);
显示为：1.2000