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

Question

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

Answer 1

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

Answer 2

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

Answer 3

//如果你处理的结果是字符，如上参考
//还有
  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;

Answer 4

//如果你处理的结果是字符，如上参考
//还有
  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;

Answer 5

//如果你处理的结果是字符，如上参考
//还有
  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;