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

BcdDivide function behave differently in Delphi XE and XE2

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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.

以上输出将是：

1 2	0.333333333333333333333333333333333333333333333333333333333333333 BCD overflow

变量C包含Bcd值，具有63个小数位的特异性。对变量C执行第二次BcdMultiply操作将导致Bcd overflow error。

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

1 2	0.3333333333 0.11111111108888888889

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