* Allow TFloatField.Precision=-1, which is the default, bug #13297

git-svn-id: trunk@13007 -

packages/fcl-db/src/base/fields.inc

@@ -1696,7 +1696,7 @@ end;
 
 procedure TFloatField.SetPrecision(const AValue: Longint);
 begin
-  if AValue > 1 then
+  if (AValue = -1) or (AValue > 1) then
     FPrecision := AValue
   else
     FPrecision := 2;