plashenkov/SQLite3-Delphi-FPC
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

SQLITE_STATIC -> SQLITE_TRANSIENT in BindText()

Browse Source
This commit is contained in:
Yuri Plashenkov
2012-10-04 23:34:27 +07:00
parent 2082534bcd
commit 9455f7bea5
3 changed files with 885 additions and 877 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Source/SQLite3.pas
View File

@@ -30,6 +30,10 @@
} }
unit SQLite3; unit SQLite3;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{ $DEFINE SQLITE_DEPRECATED} // Enable deprecated functions { $DEFINE SQLITE_DEPRECATED} // Enable deprecated functions
{ $DEFINE SQLITE_EXPERIMENTAL} // Enable experimental functions { $DEFINE SQLITE_EXPERIMENTAL} // Enable experimental functions

4
Source/SQLite3Utils.pas
View File

@@ -29,6 +29,10 @@
} }
unit SQLite3Utils; unit SQLite3Utils;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$WARN SYMBOL_DEPRECATED OFF} {$WARN SYMBOL_DEPRECATED OFF}
interface interface

2
Source/SQLite3Wrap.pas
View File

@@ -295,7 +295,7 @@ var
begin begin
S := StrToUTF8(Value); S := StrToUTF8(Value);
FOwnerDatabase.Check( FOwnerDatabase.Check(
sqlite3_bind_text(FHandle, ParamIndex, PAnsiChar(S), Length(S), SQLITE_STATIC) sqlite3_bind_text(FHandle, ParamIndex, PAnsiChar(S), Length(S), SQLITE_TRANSIENT)
); );
end; end;