paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 17:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed ftBCD support, partly bug #12143. Note that a TParam with a datatype of ftBCD in practice never occurs

Browse Source 
git-svn-id: trunk@12240 -
This commit is contained in:
joost 2008-11-27 10:18:55 +00:00
parent 563d2b2ecb
commit 668e50b88c
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -170,10 +170,7 @@ begin
ftsmallint: checkerror(sqlite3_bind_int(fstatement,I,p.asinteger)); ftsmallint: checkerror(sqlite3_bind_int(fstatement,I,p.asinteger));
ftword: checkerror(sqlite3_bind_int(fstatement,I,P.asword)); ftword: checkerror(sqlite3_bind_int(fstatement,I,P.asword));
ftlargeint: checkerror(sqlite3_bind_int64(fstatement,I,P.aslargeint)); ftlargeint: checkerror(sqlite3_bind_int64(fstatement,I,P.aslargeint));
ftbcd: begin ftbcd,
cu1:= P.ascurrency;
checkerror(sqlite3_bind_int64(fstatement,I,pint64(@cu1)^));
end;
ftfloat, ftfloat,
ftcurrency, ftcurrency,
ftdatetime, ftdatetime,
@ -496,8 +493,8 @@ begin
ftSmallInt : psmallint(buffer)^ := sqlite3_column_int(st,fnum); ftSmallInt : psmallint(buffer)^ := sqlite3_column_int(st,fnum);
ftWord : pword(buffer)^ := sqlite3_column_int(st,fnum); ftWord : pword(buffer)^ := sqlite3_column_int(st,fnum);
ftBoolean : pwordbool(buffer)^ := sqlite3_column_int(st,fnum)<>0; ftBoolean : pwordbool(buffer)^ := sqlite3_column_int(st,fnum)<>0;
ftLargeInt, ftLargeInt : PInt64(buffer)^:= sqlite3_column_int64(st,fnum);
ftBCD : PInt64(buffer)^:= sqlite3_column_int64(st,fnum); ftBCD : PCurrency(buffer)^:= FloattoCurr(sqlite3_column_double(st,fnum));
ftFloat, ftFloat,
ftCurrency : pdouble(buffer)^:= sqlite3_column_double(st,fnum); ftCurrency : pdouble(buffer)^:= sqlite3_column_double(st,fnum);
ftDateTime, ftDateTime,