Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fix for twordfield=tlongintfield (bug 8500)

git-svn-id: trunk@6780 -
marco 18 years ago
parent
a50c7a25ac
commit
e52a4e3b9f
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fcl-db/src/db.pas

+ 1 - 1
packages/fcl-db/src/db.pas
View File 

@@ -1786,7 +1786,7 @@ const
 
       { ftString} TStringField,
 
       { ftString} TStringField,
 
       { ftSmallint} TSmallIntField,
 
       { ftSmallint} TSmallIntField,
 
       { ftInteger} TLongintField,
 
       { ftInteger} TLongintField,
 
-      { ftWord} TLongintField,
 
+      { ftWord} TWordField,
 
       { ftBoolean} TBooleanField,
 
       { ftBoolean} TBooleanField,
 
       { ftFloat} TFloatField,
 
       { ftFloat} TFloatField,
 
       { ftCurrency} TCurrencyField,
 
       { ftCurrency} TCurrencyField,