Patch from Zaher Dirkey (modified)

 * Set Sqlite3Lib on WinCE
 * In dynamic lib, sqlite3_version must be aliased as like in static lib to sqlite3_libversion
 * sqlite3_version function must called with the () at last, because sqlite3_version pointer to function

git-svn-id: trunk@8759 -

packages/base/sqlite/sqlite3.inc

@@ -25,7 +25,7 @@ uses
 {$PACKRECORDS C}
 
 const
-{$IFDEF MSWINDOWS}
+{$IFDEF WINDOWS}
   Sqlite3Lib = 'sqlite3.dll';
 {$else}
   Sqlite3Lib = 'libsqlite3.so';
@@ -505,7 +505,7 @@ begin
   pointer(sqlite3_collation_needed16) := GetProcedureAddress(LibHandle,'sqlite3_collation_needed16');
   pointer(sqlite3_libversion):=GetProcedureAddress(LibHandle,'sqlite3_libversion');
 //Alias for allowing better code portability (win32 is not working with external variables) 
-  pointer(sqlite3_version):=GetProcedureAddress(LibHandle,'sqlite3_version');
+  pointer(sqlite3_version):=GetProcedureAddress(LibHandle,'sqlite3_libversion');
 
 // Not published functions
   pointer(sqlite3_libversion_number):=GetProcedureAddress(LibHandle,'sqlite3_libversion_number');

packages/fcl-db/src/sqlite/sqlite3ds.pas

@@ -304,7 +304,7 @@ end;
 
 function TSqlite3Dataset.GetSqliteVersion: String;
 begin
-  Result:=StrPas(sqlite3_version);
+  Result:=StrPas(sqlite3_version());
 end;
 
 function TSqlite3Dataset.QuickQuery(const ASql:String;const AStrList: TStrings;FillObjects:Boolean):String;