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

Merge pull request #1 from frantic/master

Browse Source 
Add optional Flags argument to TSQLite3Database
This commit is contained in:
Yuri Plashenkov
2016-01-29 22:07:41 +05:00
parent d129f4809e 2073a68242
commit 7cdff6cd6c
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Source/SQLite3Wrap.pas
View File

@@ -58,7 +58,7 @@ type
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
procedure Open(const FileName: WideString); procedure Open(const FileName: WideString; Flags: Integer = 0);
procedure Close; procedure Close;
procedure Execute(const SQL: WideString); procedure Execute(const SQL: WideString);
@@ -236,10 +236,13 @@ begin
Result := sqlite3_last_insert_rowid(FHandle); Result := sqlite3_last_insert_rowid(FHandle);
end; end;
procedure TSQLite3Database.Open(const FileName: WideString); procedure TSQLite3Database.Open(const FileName: WideString; Flags: Integer);
begin begin
Close; Close;
Check(sqlite3_open(PAnsiChar(StrToUTF8(FileName)), FHandle)); if Flags = 0 then
Check(sqlite3_open(PAnsiChar(StrToUTF8(FileName)), FHandle))
else
Check(sqlite3_open_v2(PAnsiChar(StrToUTF8(FileName)), FHandle, Flags, nil));
end; end;
function TSQLite3Database.Prepare(const SQL: WideString): TSQLite3Statement; function TSQLite3Database.Prepare(const SQL: WideString): TSQLite3Statement;