瀏覽代碼

* fixed minor issue with r18991.

git-svn-id: trunk@18994 -
marco 14 年之前
父節點
當前提交
ab40391806
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

+ 1 - 0
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

@@ -566,6 +566,7 @@ begin
 {$endif}
     FIELD_TYPE_DECIMAL: 
       begin
+        ADecimals:=AField^.decimals;
         if (ADecimals < 5) and (ASize-2-ADecimals < 15) then //ASize is display size i.e. with sign and decimal point
           NewType := ftBCD
         else