paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 09:18:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: Fix a SQLite example project on Linux. Issue #40039, patch by dbannon.

Browse Source
This commit is contained in:
Juha 2023-03-04 01:16:59 +02:00
parent 2b67dddf55
commit 57c8af94ae
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/database/sqlite_encryption_pragma/SQLite_Encryption_Pragma.ex-meta
View File

@ -1,5 +1,5 @@
{ "SQLite_Encryption_Pragma" : {
"Category" : "DBase",
"Keywords" : ["DBase","SQLite3","Encryption","Pragma","Needs Work"],
"Description" : "Simple SQLite3 Demo with Encryption and Pragma. Creation of an SQLite3 Database, Encrypting, Changing the key, Creating Tables, Index and adding rows, performing queries.\n\nIs, however, broken on Unix systems because its assumes the sqlite3 library is called sqlite3.dll ! Leaving it here for now as it probably works under Windows but needs fixing!\n\nSee the included readme.txt file.\n"}
"Keywords" : ["DBase","SQLite3","Encryption","Pragma"],
"Description" : "Simple SQLite3 Demo with Encryption and Pragma. Creation of an SQLite3 Database, Encrypting, Changing the key, Creating Tables, Index and adding rows, performing queries.\n\nUses a hard wired sqlite3 library name only on Windows.\n\nSee the included readme.txt file.\n"}
}

4
examples/database/sqlite_encryption_pragma/unit1.pas
View File

@ -442,8 +442,8 @@ end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Ensure we're using the local sqlite3.dll
SQLiteLibraryName := 'sqlite3.dll';
// Ensure we're using the local sqlite3.dll, other OS will be OK.
{$ifdef WINDOWS}SQLiteLibraryName := 'sqlite3.dll';{$endif}
// Set the path to the database
SQLite3Connection1.DatabaseName := 'new.db';