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

发布时间：2020-12-15 05:26:02 所属栏目：大数据来源：网络整理

导读：FmtBcd.pas已经在Delphi XE2中进行了大量的修改。在我的一个项目中，我有一个case对两个Bcd值使用除法运算，但两个版本产生不同的结果。在最坏的情况下，Delphi XE2可能会抛出一个Bcd溢出错误。示例：在Delphi XE2控制台应用程序中运行以下代码： var A,B,C

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

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

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

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

  ReadLn;
end.

以上的输出将是：

0.333333333333333333333333333333333333333333333333333333333333333
BCD overflow

变量C包含具有63个小数位特异性的Bcd值。对变量C执行第二个BcdMultiply操作将导致Bcd溢出错误。

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

0.3333333333
0.22222111108888888889

任何人都可以建议一个最佳实践的方法来解决这个问题？

解决方法

问题中的代码在XE2更新4中产生预期的输出。请注意，更新3产生错误的输出，因此清楚地，更新4到达修正。此外，XE3产生期望的输出。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!