- patch from Alexandrov Alexandru for TSmallIntFields

git-svn-id: trunk@901 -

fcl/db/db.pp

@@ -1741,7 +1741,7 @@ const
   DefaultFieldClasses : Array [TFieldType] of TFieldClass =
     ( { ftUnknown} Tfield,
       { ftString} TStringField,
-      { ftSmallint} TLongIntField,
+      { ftSmallint} TSmallIntField,
       { ftInteger} TLongintField,
       { ftWord} TLongintField,
       { ftBoolean} TBooleanField,