Question

FmtBcd.pas已在Delphi XE2中进行了大量修改。在我的一个项目中，我有一个案例对两个Bcd值使用除法运算，但这两个版本产生不同的结果。在最坏的情况下，Delphi XE2可能抛出Bcd overflow error。

示例：在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个小数位的特异性。对变量BcdMultiply执行第二次C操作将导致Bcd overflow error。

但是，要在Delphi XE中运行相同的代码，会产生以下结果，而不会出现任何异常提示：

0.3333333333
0.11111111108888888889

有人可以建议一种解决此问题的最佳实践方法吗？

Answer 1

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

BcdDivide函数在Delphi XE和XE2中表现不同

1 个答案: