是TCustomSQLDataSet的错吗?

Question

Delphi文档，ISQLCursor.getColumnPrecisionDescription... ...Column type Meaning of precision
----------------  ----------------------------------------------
... ...           ... ...
fldBCD          Number of significant digits in the BCD values. 
                  (Note that the number of decimal places is returned 
                  by the getColumnScale method.)
... ...           ... ...但是SqlExpr单元中的TCustomSQLDataSet.AddFieldDesc(...)中的代码却是....
 with FieldDesc do
  begin
    ...
    if iFldType in [fldFMTBCD, fldBCD] then
    begin
      iUnits2 := Abs(iUnits2);
      if iUnits1 < iUnits2 then   // iUnits1 indicates Oracle 
                                  //'usable decimals'
        iUnits1 := iUnits2;      // ftBCD supports only up to 18-4.  If Prec > 14 or Scale > 4, 
      //make FMTBcd
      if (iUnits1 > (MaxBcdPrecision-4))       //!!这里only up to 14位
      or (iUnits2 > MaxBcdScale) 
      or FNumericMapping then
      begin
        FType := ftFMTBcd;
        iFldType := fldFMTBCD;
        if (iUnits1 = 38) and (iUnits2 in [0,38]) then
        begin
          iUnits1 := 32;
          iUnits2 := 8;
        end;
        if iUnits1 > MaxFMTBcdDigits then
          iUnits1 := MaxFMTBcdDigits;
      end;
    end;
  end;当我在数据库声明一个字段为numeric(18,4)时，驱动程序装载为
getColumnPrecision返回18，也就是precision为18
getColumnScale返回4，我印象中currency可以处理numeric(18,4)类型的字段，
基于时间和空间性能上的考虑，
本来应该为我创建ftBcd也就是Currency类型的字段，
但是却因为这段代码，使得我的字段变成ftFmtBcd字段我觉得
      if (iUnits1 > (MaxBcdPrecision-4))       //!!这里only up to 14位
      or (iUnits2 > MaxBcdScale) 
      or FNumericMapping then
这一句应该为
      if (iUnits1 > MaxBcdPrecision)       //!!这里only up to 18位
      or (iUnits2 > MaxBcdScale) 
      or FNumericMapping then不知道大家认为如何，大家发表意见啊

Answer 1

我印象中currency可以处理numeric(18,4)类型的字段，
****************
到底是否如你所说，用实际数据测试一下不就知道结果了？

Answer 2

Currency的有效数字可以达到19位，完全表示numeric(18,4)的数至少TIBCustomDataSet也是这么干的，它把numeric(18,4)的类型映射为currency字段我也测试了，用下面的值
-922337203685477.5808
922337203685477.5807
写入一个numeric(18,4)类型的字段然后关闭再打开再读出得出正确的结果

Answer 3

我又测了一下，ADODataSet也是把numeric(18,4)的类型映射为currency的

Answer 4

能查出Delphi的Bug来？真是厉害，不过据我所知BCD字段只在BDE里会产生数据精度问题。所以在BDE里就有这么一个所选：EnableBCD。呵呵，其他的看不懂！

Answer 5

没人用dbexpress?帮忙up一下也好

Answer 6

能查出Delphi的Bug来？真是厉害，