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

1754
Source/SQLite3.pas
View File

File diff suppressed because it is too large Load Diff

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

4
Source/SQLite3Wrap.pas
View File

@@ -99,7 +99,7 @@ type
procedure BindNull(const ParamName: WideString); overload; procedure BindNull(const ParamName: WideString); overload;
procedure BindBlob(const ParamName: WideString; Data: Pointer; const Size: Integer); overload; procedure BindBlob(const ParamName: WideString; Data: Pointer; const Size: Integer); overload;
procedure BindZeroBlob(const ParamName: WideString; const Size: Integer); overload; procedure BindZeroBlob(const ParamName: WideString; const Size: Integer); overload;
procedure ClearBindings; procedure ClearBindings;
function Step: Integer; function Step: Integer;
@@ -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;