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

发布于 2025-01-02 04:46:18 字数 866 浏览 5 评论 0原文

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 包含一个具有 63 个小数位的 Bcd 值。对变量 C 执行第二次 BcdMultiply 运算将导致 Bcd 溢出错误。

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

0.3333333333
0.11111111108888888889

任何人都可以建议解决此问题的最佳实践方法吗？

原文

FmtBcd.pas has been extensively revised rewritten in Delphi XE2. In one of my projects, I have a case that uses a division operation on two Bcd values, but the two versions yield different results. In the worst case, the Delphi XE2 may throw a Bcd overflow error.

Example: Running the following code in Delphi XE2 console apps:

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.

Output of the above will be:

0.333333333333333333333333333333333333333333333333333333333333333
BCD overflow

The variable C contains a Bcd Value with 63 decimal places of specificity. Performing a second BcdMultiply operation on variable C will cause a Bcd overflow error.

However, to run the same code in Delphi XE yields the following result without any exception prompt: