paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Ladislav Karrach to use a field's type-affinity to determine the fieldtype. (Fixes aggregate test)

Browse Source 
git-svn-id: trunk@16857 -
This commit is contained in:
joost 2011-01-30 21:05:56 +00:00
parent 9604ae2908
commit d6adcdfe81
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -364,9 +364,16 @@ begin
ft1:=FieldMap[fi].t;
break;
end;
// Empty field types are allowed and used in calculated columns (aggregates)
// and by pragma-statements
if FD='' then ft1 := ftString;
// In case of an empty fieldtype (FD='', which is allowed and used in calculated
// columns (aggregates) and by pragma-statements) or an unknown fieldtype,
// use the field's affinity:
if ft1=ftUnknown then
case TStorageType(sqlite3_column_type(st,i)) of
stInteger: ft1:=ftLargeInt;
stFloat: ft1:=ftFloat;
stBlob: ft1:=ftBlob;
else ft1:=ftString;
end;
// handle some specials.
size1:=0;
case ft1 of