有没有取浮点数的小数点位数的函数？？

[laodiao]

我想问一下，有没有一个取浮点数的小数点的函数，
也就是，有的时候我需要取小数点后面两位，有的时候需要三位，
有没有这样的函数啊？？

[dreamfan]

format

[dreamfan]

formatfloat()
Format string- 1234 -1234 0.5 0
1234 -1234 0.5 0
0 1234 -1234 1 0
0.00 1234.00 -1234.00 0.50 0.00
#.## 1234 -1234 .5
#,##0.00 1,234.00 -1,234.00 0.50 0.00
#,##0.00;(#,##0.00) 1,234.00 (1,234.00) 0.50 0.00
#,##0.00;;Zero 1,234.00 -1,234.00 0.50 Zero
0.000E+00 1.234E+03 -1.234E+03 5.000E-01 0.000E+00
#.###E-0 1.234E3 -1.234E3 5E-1 0E0

[dreamfan]

formatfloat()
Format string- 1234 -1234 0.5 0
1234 -1234 0.5 0
0 1234 -1234 1 0
0.00 1234.00 -1234.00 0.50 0.00
#.## 1234 -1234 .5
#,##0.00 1,234.00 -1,234.00 0.50 0.00
#,##0.00;(#,##0.00) 1,234.00 (1,234.00) 0.50 0.00
#,##0.00;;Zero 1,234.00 -1,234.00 0.50 Zero
0.000E+00 1.234E+03 -1.234E+03 5.000E-01 0.000E+00
#.###E-0 1.234E3 -1.234E3 5E-1 0E0

[robinhunter]

showmessage(format('%8.2f',[12334.342414]));

[lanbada]

round(flt_1*1000)/1000

[王集鹄]

//如果你处理的结果是字符，如上参考
//还有
Caption := FormatFloat('0.00', R)

//如果你处理的结果是数值，如下参考
uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
R: Real;
begin
R := 12.3456;
Caption := FloatToStr(RoundTo(R, -2));
end;

[王集鹄]

//如果你处理的结果是字符，如上参考
//还有
Caption := FormatFloat('0.00', R)

//如果你处理的结果是数值，如下参考
uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
R: Real;
begin
R := 12.3456;
Caption := FloatToStr(RoundTo(R, -2));
end;

[王集鹄]

//如果你处理的结果是字符，如上参考
//还有
Caption := FormatFloat('0.00', R)

//如果你处理的结果是数值，如下参考
uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
R: Real;
begin
R := 12.3456;
Caption := FloatToStr(RoundTo(R, -2));
end;