Changeset 7 for trunk/UCore.pas

Timestamp:

Jan 20, 2015, 11:33:39 PM (10 years ago)

Author:

chronos

Message:

• Fixed: XML database can be opened from file.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -13 +13 @@
 
   TCore = class(TDataModule)
+    APreferences: TAction;
     AExit: TAction;
     ActionList1: TActionList;
@@ -99 +100 @@
   I: Integer;
   NewDatabase: TDatabase;
+  Engine: TDatabaseEngine;
 begin
   Databases.Count := XMLConfig1.GetValue('Database/Count', 0);
   for I := 0 to Databases.Count - 1 do begin
+    Engine := Core.Engines.FindByName(XMLConfig1.GetValue('Database/Item' + IntToStr(I) + '/Engine', ''));
+
     NewDatabase := TDatabase.Create;
+    NewDatabase.Engine := Engine;
     NewDatabase.Name := XMLConfig1.GetValue('Database/Item' + IntToStr(I) + '/Name', '');
     NewDatabase.ConnectionString := XMLConfig1.GetValue('Database/Item' + IntToStr(I) + '/ConnectionString', '');
-    NewDatabase.Engine := Core.Engines.FindByName(XMLConfig1.GetValue('Database/Item' + IntToStr(I) + '/Engine', ''));
     Databases[I] := NewDatabase;
   end;