简单问题！送分啦！

Question

怎么让一个数值4舍5入到两位小数啊？

Answer 1

uses Math;RoundTo(1.234, -2)===>>> 1.23

Answer 2

我用不起来呀！
edit1.Text:=RoundTo(1.234, -2);
怎么把类型变成一样啊？求助啊！

Answer 3

edit1.Text:=FloatToStr(RoundTo(1.234, -2));

Answer 4

多谢楼上。
怎么把RoundTo(* , -2)里面的*设置成变量呢？
刚学DELPHI，没办法，问题很多，望能帮助！

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  s:double;
begin
  s:=1.234;
  edit1.Text:=FloatToStr(RoundTo(s, -2));
end;
这样是可以的。
但是我的意思是希望变量s是由string类型转换来的？

Answer 6

var
i :single;
i :=1.2345;
RoundTo(i , -2);

Answer 7

string类型能转换成single或者是double型吗？

Answer 8

strtofloat(str)或者strtofloatdef(str,0);或者用formatfloat,huo

Answer 9

接上,
strtofloat(str)或者strtofloatdef(str,0);或者用formatfloat或者format