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

* Added support for ftMemo-params in TSQLite3Conn

Browse Source 
git-svn-id: trunk@16855 -
This commit is contained in:
joost 2011-01-30 19:24:08 +00:00
parent cc10ab57ab
commit 2ba53fb6d6
1 changed files with 5 additions and 4 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

@ -181,10 +181,11 @@ begin
do1:= P.asfloat;
checkerror(sqlite3_bind_double(fstatement,I,do1));
end;
ftstring: begin
str1:= p.asstring;
checkerror(sqlite3_bind_text(fstatement,I,pcharstr(str1), length(str1),@freebindstring));
end;
ftstring,
ftmemo: begin // According to SQLite documentation, CLOB's (ftMemo) have the Text affinity
str1:= p.asstring;
checkerror(sqlite3_bind_text(fstatement,I,pcharstr(str1), length(str1),@freebindstring));
end;
ftblob: begin
str1:= P.asstring;
checkerror(sqlite3_bind_blob(fstatement,I,pcharstr(str1), length(str1),@freebindstring));