Delphi中SetRoundMode(rmUp)设置后，为何舍入10至10,0001的原理是什么？

更新于

2026-10-04 22:46:22

0阅读来源：SEO问题

内容介绍
文章标签
相关推荐

本文共计375个文字，预计阅读时间需要2分钟。

这段代码的作用是设置一个向上取整的模式，并输出一个数值的取整结果。下面是对代码的简单

plaintext代码示例：SetRoundMode(rmUp); Memo1.Lines.Add(CurrToStr(SimpleRoundTo(10)));结果：10,0001我实际上并没有得到这个结果。我认为rmUp会将数值向上取整，环绕10,0001到11,000。但从10到10,000却没有这样做。谁能解释为什么会这样呢？

这段代码：

SetRoundMode(rmUp); Memo1.Lines.Add(CurrToStr(SimpleRoundTo(10)));

结果10,0001.

我根本就没有得到它.

我认为rmUp会做类似的事情,围绕10,0001到11,但从不到10到10,000.

谁能解释为什么会这样？

谢谢.

SimpleRoundTo的工作原理如下：

>将输入值除以10-x,其中x是结果中要保留的小数位数.
>将0.5添加到该产品.
>截断总和.
>乘以10-x.

结果是浮点值.与大多数浮点值一样,结果也不准确,即使在您的情况下,您也会以精确值开头.为SimpleRoundTo指定的小数位数为负数,因此步骤1中的除数(对于示例输入)理想情况下为0.01.但是这不能完全表示为浮点数,因此当在步骤1中计算10 / 0.01时,结果不完全是1000.但是,步骤3中的结果将恰好为1000,因此不精确分裂并不重要.但是,步骤4中乘法的不精确性.那个产品不准确.它会略高于10.

因此,SimpleRoundTo返回稍高的值,并且由于您已指定舍入应该上升,因此将SimpleRoundTo的扩展结果转换为CurrToStr的Currency输入将导致正好10.0001.

货币价值是准确的;它们代表一个定点值,一个按小数点后四位缩放的整数.

标签：Delphi –SetRoundMode rmUp 和