如何避免使用 ftFmtBcd 丢失精度？

Question

documentation 说：

TFMTBCDField 封装了二进制编码十进制 (BCD) 字段常见的基本行为。 BCD 值比浮点数提供更高的精度和准确度。 BCD 字段通常用于存储和操作货币值。

不幸的是，我发现将这样一个字段与 Extended 值结合使用，我会失去精度（在本例中为两位数）：如果我使用

BcdField.AsExtended := Value;

该值实际上被截断为四位数。我该怎么办？

完整示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  LValue: Double;
  LDataset: TClientDataSet;
  LFieldDef: TFieldDef;
begin
  LValue := 1 / 3;
  LDataset := TClientDataSet.Create(self);
  try
    LFieldDef := LDataset.FieldDefs.AddFieldDef;
    LFieldDef.DataType := ftFMTBcd;
    LFieldDef.Size := 6;
    LFieldDef.Precision := 10;
    LFieldDef.Name := 'A';
    LDataset.CreateDataset;
    LDataset.Append;
    LDataset.FieldByName('A').AsExtended := LValue;
    LDataset.Post;
    ShowMessage(FloatToStr(LDataset.FieldByName('A').AsExtended));
    ShowMessage(FloatToStr(LValue));
  finally
    FreeAndNil(LDataset);
  end;
end;

输出（在消息框中）：

0,3333
0,333333333333333

Answer 1

严格来说，使用返回TBcd 记录的TField.AsBCD 会更准确。 TFmtBcdField 覆盖默认实现并返回准确 TBcd 记录。

TBcd 是一个记录结构，支持简单的算术运算符和Integer 和Double 的隐式转换。所以它应该适合大多数用途。

缺点是：

• 由于缺少内置机器指令，数学运算可能会稍微慢一些。但对于需要精确表示的情况，这可能是一个合理的权衡。 根据需要进行基准测试和评估。
• 某些采用Double 或Integer 参数的函数可能需要TBcd 重载实现。

---

一些相关的考虑：

• 由于浮点表示的性质，如果您需要精确的精度，则不适合使用Double。请参阅Is floating point math broken? 了解更多信息。
• Extended 的使用与Double 存在相同的问题，尽管额外的 2 个字节提供了更大的范围和更高的精度 - 它仍然是浮点数据类型。此外，Extended 也有其自身的问题。注意警告here。
• 如果您不需要精确的表示，那么您可以使用BcdToDouble 转换为Double。见BCD Support Routines。
• 在不需要超过 4 个小数但确实需要精确表示的情况下要考虑的另一个选项：使用 Currency 数据类型。它表示为一个 64 位整数，假设除以 10000，这就是它支持 4 个十进制数字的方式。