paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@13007 -
This commit is contained in:
joost 2009-04-11 10:33:17 +00:00
parent e0c018c8f1
commit 5a488a9e5f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/fields.inc
View File

@ -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;