|
@@ -1164,7 +1164,6 @@ Const
|
|
|
function InitializeSqliteANSI(const LibraryName: AnsiString = ''): Integer; //needed as TLibraryLoadFunction
|
|
|
function InitializeSqlite(const LibraryName: UnicodeString = ''): Integer;
|
|
|
function TryInitializeSqlite(const LibraryName: Unicodestring = ''): Integer;
|
|
|
-function ReleaseSqlite: Integer;
|
|
|
procedure ReleaseSqlite; //needed as TLibraryUnLoadFunction
|
|
|
|
|
|
function InitialiseSQLite: Integer; deprecated;
|
|
@@ -1450,7 +1449,7 @@ begin
|
|
|
result:=InitializeSqlite(LibraryName);
|
|
|
end;
|
|
|
|
|
|
-function ReleaseSQLite:integer;
|
|
|
+procedure ReleaseSQLite;
|
|
|
begin
|
|
|
if InterlockedDecrement(RefCount) <= 0 then
|
|
|
begin
|
|
@@ -1462,9 +1461,4 @@ begin
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
-procedure ReleaseSQLite;
|
|
|
-begin
|
|
|
- ReleaseSQLite;
|
|
|
-end;
|
|
|
-
|
|
|
{$ENDIF}
|