Changeset 9 for trunk/UDatabase.pas

Timestamp:

Jan 25, 2015, 9:41:26 PM (10 years ago)

Author:

chronos

Message:

• Added: Preferences dialog window.
• Modified: Currently selected database is set in TCore class in field Database.
• Added: Application remembers name of previous opened database and reopen it during startup.
• Modified: FormDatabases is now used as modal form.

File:

• trunk/UDatabase.pas (modified) (4 diffs)

trunk/UDatabase.pas

@@ -125 +125 @@
     procedure Load; virtual;
     procedure Save; virtual;
+    procedure Clear;
     property Engine: TDatabaseEngine read FEngine write SetEngine;
   end;
 
+  { TDatabases }
+
   TDatabases = class(TObjectList)
-
+    function FindByName(Name: string): TDatabase;
   end;
 
@@ -179 +182 @@
   end;
 
+  TPreferences = class
+    RememberDatabase: Boolean;
+    LastDatabaseName: string;
+  end;
+
 
 implementation
@@ -184 +192 @@
 uses
   UDataTypes;
+
+{ TDatabases }
+
+function TDatabases.FindByName(Name: string): TDatabase;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TDatabase(Items[I]).Name <> Name) do Inc(I);
+  if (I < Count) then Result := TDatabase(Items[I])
+    else Result := nil;
+end;
 
 { TDatabaseClient }
@@ -465 +485 @@
 end;
 
+procedure TDatabase.Clear;
+begin
+  Tables.Clear;
+end;
+
 end.