Paradox BCD 字段 - 数字超出范围错误

Question

我正在尝试使用旧的 Delphi XE6 应用程序更新旧的 Paradox (BDE) 表。一个特定的表有两个字段；日期字段和 BCD 字段。由于 BCD (FuelSur) 字段引发“数字超出范围”错误，我无法向 (FuelSurch) 表发布新记录。

所以我写了一个快速测试，但仍然是同样的问题。以下是 FuelSurch 表字段规范。

我刚刚在表单中添加了一个按钮，单击时会触发此过程。

procedure TTestForm.BCDTestBtnClick(Sender: TObject);
var
  Bcd: TBcd;
begin
  POE_Data.FuelSurch.Open;
  POE_Data.FuelSurch.Insert;
  Bcd:= StrToBcd('2.01');
  showMessage('Bcd = ' + BcdToStr(Bcd));  // This works and shows 'Bcd = 2.01'
  POE_Data.FuelSurchFuelSur.AsBCD := Bcd;  // Line produces "Number is out of range." error
  POE_Data.FuelSurch.Post;
  POE_Data.FuelSurch.Close;
end;

确认数据库连接与我可以发布到其他表一样好。似乎这种 BCD 字段类型给我带来了问题。

在将字符串分配给 Bcd 变量之前，是否需要对字符串进行不同的格式化？

Answer 1

BCD 的内部精度是总位数，而不是小数分隔符后的位数。

它始终是偶数（奇数时加 1）。原因是一个字节存储2位数字。

所以如果你试试这个：

procedure TForm1.Button1Click(Sender: TObject);
var
  Bcd: TBCD;
begin
  Bcd := StrToBcd('2.01', TFormatSettings.Invariant);
  ShowMessage(IntToStr(Bcd.Precision));
end;

你会看到 4，因为使用了 3 位数字，加上 1 以使其相等。

你的字段精度只有2，如果表示和TBCD.Precision一样，那就不够了。

注意BcdPrecision()返回小数点分隔符之前的位数，这有点混乱。