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

--- Merging r31086 into '.':

Browse Source 
U    packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
--- Recording mergeinfo for merge of r31086 into '.':
 U   .

# revisions: 31086

git-svn-id: branches/fixes_3_0@31127 -
This commit is contained in:
marco 2015-06-19 06:59:13 +00:00
parent c5fa41be1f
commit 11d4439d79
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,7 +178,6 @@ Var
I : Integer; I : Integer;
P : TParam; P : TParam;
str1: string; str1: string;
do1: double;
wstr1: widestring; wstr1: widestring;
begin begin
@ -191,23 +190,16 @@ begin
case P.DataType of case P.DataType of
ftInteger, ftInteger,
ftAutoInc, ftAutoInc,
ftBoolean,
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));
ftBoolean: checkerror(sqlite3_bind_int(fstatement,I,ord(P.AsBoolean)));
ftLargeint: checkerror(sqlite3_bind_int64(fstatement,I,P.AsLargeint)); ftLargeint: checkerror(sqlite3_bind_int64(fstatement,I,P.AsLargeint));
ftBcd, ftBcd,
ftFloat, ftFloat,
ftCurrency: ftCurrency: checkerror(sqlite3_bind_double(fstatement, I, P.AsFloat));
begin
do1:= P.AsFloat;
checkerror(sqlite3_bind_double(fstatement,I,do1));
end;
ftDateTime, ftDateTime,
ftDate, ftDate,
ftTime: begin ftTime: checkerror(sqlite3_bind_double(fstatement, I, P.AsFloat - JulianEpoch));
do1:= P.AsFloat - JulianEpoch;
checkerror(sqlite3_bind_double(fstatement,I,do1));
end;
ftFMTBcd: ftFMTBcd:
begin begin
str1:=BCDToStr(P.AsFMTBCD, Fconnection.FSQLFormatSettings); str1:=BCDToStr(P.AsFMTBCD, Fconnection.FSQLFormatSettings);