使用 TADOQuery 转换负数

Question

我对@9​​87654322@ 有一个大问题：

这是我的 SQL：

select cast(-10 as number(9)) foo, -10 bar 
  from dual

添加“foo”字段时会创建一个 TIntegerField 而不是 TBCDField，因为此时类型已更改：

procedure TCustomADODataSet.InternalInitFieldDefs;

    if (F.Type_ = adNumeric) and (F.NumericScale = 0) and
       (F.Precision < 10) then
      FieldType := ftInteger;

功能：

function TCustomADODataSet.GetFieldData(Field: TField; Buffer: Pointer;
  NativeFormat: Boolean): Boolean;

此时不考虑信号：

    ftAutoInc, ftInteger:
      Integer(Buffer^) := lVal;

TIntegerField 的tagVariant 的值为：

(14, 32768, 0, 0, 10, 10, 10, 1.4012984643e-44, 4.9406564584e-323, True, 10, 0.001, 4.9406564584e-323, , $A, $A, $A, $ A, $A, $A, $A, $A, $A, $A, $A, $A, $A'', $A, $A, $A, $A, $A, #10, 10 , 10, 10, 10, $A, , $A, $A, $A, $A)

TBCDField 也一样：

(14, 32768, 0, 0, 10, 10, 10, 1.4012984643e-44, 4.9406564584e-323, True, 10, 0.001, 4.9406564584e-323, , $A, $A, $A, $ A, $A, $A, $A, $A, $A, $A, $A, $A, $A'', $A, $A, $A, $A, $A, #10, 10 , 10, 10, 10, $A, , $A, $A, $A, $A)

foo 值为 10，bar 值为 -10。

这是一个错误吗？
有解决方法吗？
修好了？

我使用 Microsoft OLEDB Provider for Oracle 和 Oracle Provider for OLEDB 进行了测试。 所有测试均使用 Delphi 6 完成。

Answer 1

不知道有没有理解正确，不过可以这样试试：

select cast(replace(-10,'-','') as number(9)) foo, -10 bar 
  from dual;