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

* Added recognition of FLOAT, CHAR and DECIMAL fields/records

Browse Source 
git-svn-id: trunk@9092 -
This commit is contained in:
joost 2007-11-03 00:14:39 +00:00
parent 306670c74a
commit 570b4e079d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
View File

@ -307,7 +307,7 @@ Type
end; end;
Const Const
FieldMapCount = 15; FieldMapCount = 18;
FieldMap : Array [1..FieldMapCount] of TFieldMap = ( FieldMap : Array [1..FieldMapCount] of TFieldMap = (
(n:'INT'; t: ftInteger), (n:'INT'; t: ftInteger),
(n:'LARGEINT'; t:ftlargeInt), (n:'LARGEINT'; t:ftlargeInt),
@ -315,13 +315,16 @@ Const
(n:'SMALLINT'; t: ftSmallint), (n:'SMALLINT'; t: ftSmallint),
(n:'BOOLEAN'; t: ftBoolean), (n:'BOOLEAN'; t: ftBoolean),
(n:'REAL'; t: ftFloat), (n:'REAL'; t: ftFloat),
(n:'FLOAT'; t: ftFloat),
(n:'DOUBLE'; t: ftFloat), (n:'DOUBLE'; t: ftFloat),
(n:'DATETIME'; t: ftDateTime), // MUST be before date (n:'DATETIME'; t: ftDateTime), // MUST be before date
(n:'DATE'; t: ftDate), (n:'DATE'; t: ftDate),
(n:'TIME'; t: ftTime), (n:'TIME'; t: ftTime),
(n:'CURRENCY'; t: ftCurrency), (n:'CURRENCY'; t: ftCurrency),
(n:'VARCHAR'; t: ftString), (n:'VARCHAR'; t: ftString),
(n:'CHAR'; t: ftString),
(n:'NUMERIC'; t: ftBCD), (n:'NUMERIC'; t: ftBCD),
(n:'DECIMAL'; t: ftBCD),
(n:'TEXT'; t: ftmemo), (n:'TEXT'; t: ftmemo),
(n:'BLOB'; t: ftBlob) (n:'BLOB'; t: ftBlob)
{ Template: { Template: