delphi中roundto

在 delphi 语言里，规定小数位数的函数，可以试试 RoundTo 或是 formatfloat 函数，以下是示例代码：procedure TForm1.BitBtn1Click(Sender: TObject);begin ShowMessage(FloatToStr(RoundTo(3.1415926,-2)) + ' , ' ...

RoundTo uses "Banker's Rounding" to determine how to round values that are exactly midway between the two values that have the desired number of significant digits. This method rounds to an even number in t...

delphi保留2位小数，实现的方法如下：x := Round(x * 100) / 100;在USER部分加入MATH单元后可以使用 x：=RoundTo(y, 2)或者用以下办法：x=a/b;x=strtofloat(formatfloat('0.00',x));...

x,y : real;begin x := sin(pi);y := sin(30*pi/180);//结果为0.499998548888605；应该是一个正确的值;y := roundto(sin(30*pi/180),-2);//第二个参数为保留小数点后几位小数，四舍五入；结果=0.5;...

综上所述，两种舍入法所得结果不尽一致，因此在使用时必须根据实际需要加以区别。否则会出现一些莫明其妙的偏差。round()函数，就是将浮点数转变成整数，四舍五入（银行家）；SimpleRoundTo(数, 位)，将浮点数四舍五入到...

1、关于取整，你没说取整规则。添加引用：Math 直接删除小数部分，返回整数：trunc，如果trunc（2.234），则返回 2。其他：trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123...

在delphi里面，其提供的是使用 round()来实现四舍五入，但是得到的结果往往不是我们想要的。比如 round(11.5) ，可以得到12 但是 round(12.5) ，得到的也是12 为什么？这个要看小数点的前一位数，如果是奇数，则四舍...

另外两点建议：round()这个函数有BUG的，你showmessage(inttostr(round(3.5))) 和showmessage(inttostr(round(4.5))) 看看效果就知道了。一般这样解决，不保留小数：trunc(a+0.5) 一位小数：trunc((a*10+0.5)/10...

TotalFreeSpace:=FloatToStr(Round(TotalF / 1024 / 1024 /1024 * 100) / 100);end;//读取卷标到Edit.textprocedure TForm1.btn4Click(Sender: TObject);var VName,VSNumber,PType:string;TotalS,TotalF:string;begi...

= 4 longint = 4 single = 4以上是每种数据类型的字节长度。 real = 8 double = 8 extended = 10很明显，大大extended转换为integer型是不安然的。所以我建议你修改你应用数据类型，不然你的法度榜样也是不稳定的....