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

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将导致a Bcd overflow error.

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

0.3333333333
0.11111111108888888889

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

Answer 1

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