* Different default mechanism

git-svn-id: trunk@25748 -

packages/oracle/src/oci.inc

@@ -3378,7 +3378,8 @@ uses ctypes,
 {$include ociap.inc}
 
 {$IFDEF LinkDynamically}
-Function InitialiseOCI(const LibraryName: AnsiString = ocilib): integer;
+Function InitialiseOCI(const LibraryName: AnsiString): integer;
+Function InitialiseOCI(): integer;
 Procedure ReleaseOCI;
 
 var OCILibraryHandle : TLibHandle;
@@ -3394,7 +3395,16 @@ implementation
 var 
   RefCount : integer;
 
-function InitialiseOCI(const LibraryName: AnsiString = ocilib): integer;
+Function InitialiseOCI(): integer;
+
+begin
+  if (OCILoadedLibrary='') then
+    Result:=InitialiseOCI(OCILib)
+ else
+    Result:=InitialiseOCI(OCILoadedLibrary);
+end;
+
+function InitialiseOCI(const LibraryName: AnsiString): integer;
 
 begin
   inc(RefCount);