Browse Source

* Made used SQLLite library name configurable

git-svn-id: trunk@16500 -
michael 14 years ago
parent
commit
413dcde4aa
1 changed files with 5 additions and 2 deletions
  1. 5 2
      packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

+ 5 - 2
packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -92,7 +92,10 @@ type
   published
     property Options: TSqliteOptions read FOptions write SetOptions;
   end;
- 
+  
+Var
+  SQLiteLibraryName : String = sqlite3lib; 
+   
 implementation
 
 uses
@@ -574,7 +577,7 @@ var
 begin
   if Length(databasename)=0 then
     DatabaseError(SErrNoDatabaseName,self);
-  initialisesqlite;
+  InitializeSqlite(SQLiteLibraryName);
   str1:= databasename;
   checkerror(sqlite3_open(pchar(str1),@fhandle));
 end;