我正在比较DUnit中的一些货币值,但它在我的机器上根本不起作用(在其他机器上工作,但不在我的机器上).
一个例子：
CheckEquals(16.65,SomeCurrencyFieldValue);
举：
expected: <16,65> but was: <16,65>
如果做以下比较然后工作：
var
Temp: Currency;
begin
Temp := 16.65;
CheckEquals(Temp,SomeCurrencyFieldValue);
问题是：当我将值直接传递给CheckEquals方法时,为什么比较不起作用？
问题与在运行时如何将Currency值转换为扩展值以及在编译时如何将浮点
文字转换为扩展值有关.如果在两种情况下转换都不相同,那么传递给CheckEquals的值可能无法比较相等.
值得在调试器的cpu窗口中检查在为函数调用做准备时,其中任何一个值是否经过Extended的中间Double值.额外的转换会影响结果的确切值.
另一件需要考虑的事情是16.65不能完全表示为扩展值,但它可以完全表示为货币值.虽然Currency被归类为浮点类型,但它实际上是一个定点缩放的64位整数.这可能是在DUnit中请求额外的CheckEquals重载的理由,并将其考虑在内.
