Changeset 247 for oup/current/DataAccess

Timestamp:

Nov 25, 2007, 3:24:53 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/DataAccess/ConnectionManager.pas (modified) (4 diffs)

oup/current/DataAccess/ConnectionManager.pas

@@ -2 +2 @@
 interface
 
-uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB;
+uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB, Access_OniSplitArchive;
 
 type
@@ -155 +155 @@
   else if ext = '.DAT' then
     backend := DB_ONI
+  else if ext = '.ONI' then
+    backend := DB_ONISPLIT
   else
   begin
@@ -168 +170 @@
     DB_ADB:
       FConnections[i] := TAccess_OUP_ADB.Create(FileName, FLastID + 1, CreateMsg);
+    DB_ONISPLIT:
+      FConnections[i] := TAccess_OniSplitArchive.Create(FileName, FLastID + 1, CreateMsg);
   end;
 
@@ -179 +183 @@
   begin
     FConnections[i].Close;
-    FConnections[i].Free;
     FConnections[i] := nil;
     SetLength(FConnections, Length(FConnections) - 1);