Browse Source

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

git-svn-id: trunk@13007 -
joost 16 years ago
parent
commit
5a488a9e5f
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/base/fields.inc

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

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