Sfoglia il codice sorgente

* Allow a size (amount of decimals) of 0 for TBCDFields

git-svn-id: trunk@10819 -
joost 17 anni fa
parent
commit
97fc499a48
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      packages/fcl-db/src/base/fields.inc

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

@@ -2138,7 +2138,7 @@ end;
 class procedure TBCDField.CheckTypeSize(AValue: Longint);
 
 begin
-  If not (AValue in [1..4]) then
+  If not (AValue in [0..4]) then
     DatabaseErrorfmt(SInvalidFieldSize,[Avalue]);
 end;