Changeset 30 for trunk/UDatabase.pas

Timestamp:

Jun 28, 2024, 11:08:43 PM (3 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/UDatabase.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, ExtCtrls, Dialogs, USqlDatabase, URegistry, UGenerics,
+  Classes, SysUtils, ExtCtrls, Dialogs, USqlDatabase, RegistryEx, Generics,
   Generics.Collections;
 
@@ -347 +347 @@
   try
     CurrentContext := Context;
-    Count := GetValue('Count', 0);
+    Count := ReadIntegerWithDefault('Count', 0);
     for I := 0 to Count - 1 do begin
       OpenKey(Context.Key + '\Item' + IntToStr(I), True);
-      ClientType := DbManager.ClientTypes.FindByName(GetValue('ClientType', ''));
+      ClientType := DbManager.ClientTypes.FindByName(ReadStringWithDefault('ClientType', ''));
       if not Assigned(ClientType) and (DbManager.ClientTypes.Count > 0) then
         ClientType := TDbClientType(DbManager.ClientTypes[0]);
@@ -357 +357 @@
       ConnectProfile.DbManager := DbManager;
       ConnectProfile.ClientType := ClientType;
-      ConnectProfile.Name := GetValue('Name', '');
-      ConnectProfile.Params.ConnectionString := GetValue('ConnectionString', '');
+      ConnectProfile.Name := ReadStringWithDefault('Name', '');
+      ConnectProfile.Params.ConnectionString := ReadStringWithDefault('ConnectionString', '');
       Items[I] := ConnectProfile;
     end;
@@ -373 +373 @@
   try
     CurrentContext := Context;
-    SetValue('Count', Count);
+    ReadIntegerWithDefault('Count', Count);
     for I := 0 to Count - 1 do begin
       OpenKey(Context.Key + '\Item' + IntToStr(I), True);
-      SetValue('Name', Items[I].Name);
-      SetValue('ConnectionString', Items[I].Params.ConnectionString);
-      SetValue('ClientType', Items[I].ClientType.Name);
+      WriteString('Name', Items[I].Name);
+      WriteString('ConnectionString', Items[I].Params.ConnectionString);
+      WriteString('ClientType', Items[I].ClientType.Name);
     end;
   finally