فهرست منبع

* Fix issue #39009, remove size 20 limit on float types

git-svn-id: trunk@49507 -
michael 4 سال پیش
والد
کامیت
f3e7d96053
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      packages/fcl-db/src/dbase/dbf_fields.pas

+ 2 - 1
packages/fcl-db/src/dbase/dbf_fields.pas

@@ -617,7 +617,8 @@ begin
         // Note: this field can be stored as BCD or integer, depending on FPrecision;
         // that's why we allow 0 precision
         if FSize < 1   then FSize := 1;
-        if FSize >= 20 then FSize := 20;
+        // Removed, bug report 39009
+        // if FSize >= 20 then FSize := 20;
         if FPrecision > FSize-2 then FPrecision := FSize-2; //Leave space for . and -
         if FPrecision < 0       then FPrecision := 0;
       end;