摘要： delphi 7中自带数值四舍五入函数RoundTo(AVlaue, ADigit)存在一些不确定性情况，并非像帮助或者网络说的四舍六入五凑偶的规则，不信可以随便测试几个数据就会发现与你预期的不一样，比如33.015与33.035，修约2位小数，运行结果却是33.01与33.03。这主要是与浮点数的精度有关（有兴趣可以了解一下浮点数的存储结构，我之前有转载了一篇相关文章），我改进这个问题，较好的解决的前面的问题，同时执行速度较快，用法与RoundTo一样，代码如下：function IsVeryNear1(f: double): boolean;var // 判断给定实数的小数部分是... 阅读全文