paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 22:21:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ftWideMemo should be the last TFieldType

Browse Source 
git-svn-id: trunk@6886 -
This commit is contained in:
joost 2007-03-16 19:50:34 +00:00
parent 428306051f
commit aa508a6033
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/db.pas
View File

@ -110,10 +110,10 @@ type
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftWideMemo, ftCursor, ftFixedChar, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftWideString, ftLargeint, ftADT, ftArray, ftReference,
ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar); ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);
{ Part of DBCommon, but temporary defined here (bug 8206) } { Part of DBCommon, but temporary defined here (bug 8206) }
@ -1885,7 +1885,6 @@ const
{ ftParadoxOle} TBlobField, { ftParadoxOle} TBlobField,
{ ftDBaseOle} TBlobField, { ftDBaseOle} TBlobField,
{ ftTypedBinary} TBlobField, { ftTypedBinary} TBlobField,
{ ftWideMemo} TWideMemoField,
{ ftCursor} Nil, { ftCursor} Nil,
{ ftFixedChar} TStringField, { ftFixedChar} TStringField,
{ ftWideString} TWideStringField, { ftWideString} TWideStringField,
@ -1902,7 +1901,8 @@ const
{ ftGuid} TGuidField, { ftGuid} TGuidField,
{ ftTimeStamp} Nil, { ftTimeStamp} Nil,
{ ftFMTBcd} Nil, { ftFMTBcd} Nil,
{ ftFixedWideString} TWideStringField { ftFixedWideString} TWideStringField,
{ ftWideMemo} TWideMemoField
); );
dsEditModes = [dsEdit, dsInsert, dsSetKey]; dsEditModes = [dsEdit, dsInsert, dsSetKey];

2
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -446,7 +446,6 @@ const TypeStrings : array[TFieldType] of string =
'Unknown', 'Unknown',
'Unknown', 'Unknown',
'Unknown', 'Unknown',
'Unknown',
'int', 'int',
'Unknown', 'Unknown',
'Unknown', 'Unknown',
@ -460,6 +459,7 @@ const TypeStrings : array[TFieldType] of string =
'Unknown', 'Unknown',
'Unknown', 'Unknown',
'Unknown', 'Unknown',
'Unknown',
'Unknown' 'Unknown'
); );

8
packages/fcl-db/tests/database.ini
View File

@ -1,7 +1,7 @@
[Database] [Database]
; This file contains several sections, one for each database-type. Select here ; This file contains several sections, one for each database-type. Select here
; which database has to be tested currently. ; which database has to be tested currently.
type=dbf type=interbase
@ -59,10 +59,10 @@ hostname=192.168.1.1
[interbase] [interbase]
connector=sql connector=sql
connectorparams=interbase connectorparams=interbase
name=/path/to/database.fdb name=/opt/firebird/data/test.fdb
user=sysdba user=sysdba
password=masterkey password=rosivrepus
hostname=192.168.1.1 hostname=127.0.0.1
[odbc] [odbc]
connector=sql connector=sql