paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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;
P : TParam;
str1: string;
do1: double;
wstr1: widestring;
begin
@ -191,23 +190,16 @@ begin
case P.DataType of
ftInteger,
ftAutoInc,
ftBoolean,
ftSmallint: checkerror(sqlite3_bind_int(fstatement,I,P.AsInteger));
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));
ftBcd,
ftFloat,
ftCurrency:
begin
do1:= P.AsFloat;
checkerror(sqlite3_bind_double(fstatement,I,do1));
end;
ftCurrency: checkerror(sqlite3_bind_double(fstatement, I, P.AsFloat));
ftDateTime,
ftDate,
ftTime: begin
do1:= P.AsFloat - JulianEpoch;
checkerror(sqlite3_bind_double(fstatement,I,do1));
end;
ftTime: checkerror(sqlite3_bind_double(fstatement, I, P.AsFloat - JulianEpoch));
ftFMTBcd:
begin
str1:=BCDToStr(P.AsFMTBCD, Fconnection.FSQLFormatSettings);