BcdDivide函数在Delphi XE和XE2中的行为不同

FmtBcd.pas

已在Delphi XE2中进行了大量修改和重写。在我的一个项目中，有一个案例对两个

Bcd

值使用除法运算，但这两个版本产生不同的结果。在最坏的情况下，Delphi XE2可能会抛出

Bcd溢出错误

示例：在Delphi XE2控制台应用程序中运行以下代码：

var A, B, C, D: TBcd;
begin
  A := StrToBcd('1');
  B := StrToBcd('3');
  BcdDivide(A, B, C);
  WriteLn(BcdToStr(C));

  try
    BcdMultiply(C, C, D);
    WriteLn(BcdToStr(D));
  except
    on E: Exception do
      WriteLn(E.Message);
  end;

  ReadLn;
end.

上述各项的产出将为：

0.333333333333333333333333333333333333333333333333333333333333333
BCD overflow

变量

C

包含一个Bcd值，其小数点后63位。对变量

C

执行第二次

Bcd多重

操作将导致

Bcd溢出错误

但是，在Delphi XE中运行相同的代码会在没有任何异常提示的情况下产生以下结果：

0.3333333333
0.11111111108888888889

---

有谁能建议一种解决此问题的最佳实践方法吗？

问题中的代码在XE2 update 4中产生了预期的输出。请注意，更新3产生了错误的输出，因此很明显，更新4带来了修复。此外，XE3会产生预期的输出。

除了这是XE2中的一个bug之外，很难说其他任何东西。我在为Win32或Win64编译时报告了相同的结果？@François:XE2中的Win32和Win64都会产生相同的结果。很抱歉，请问您的问题是什么？你只是在发表声明。如果提供的lib有缺陷，那么您可以简单地重新实现所使用的函数。或者使用工作版本中的版本。无论什么