delphi里规定小数位数的函数是哪个？

试一下这个
var
a : double;
begin
a := 1.1111111111111111;
a := Roundto(a, -4);
showmessage(floattostr(a));
end;

或者试下这个
formatfloat('0.0000', a)

推荐使用后面的这个。感觉应该好用点。