paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 06:39:39 +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

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

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