Changeset 20 for trunk/Packages/Common/URegistry.pas

Timestamp:

Mar 23, 2018, 1:59:25 PM (7 years ago)

Author:

chronos

Message:

• Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
• Modified: TDbManager is top most class for managing other database classes.
• Modified: TDbConnectParams class contains client specific parameters for connect profile.

File:

• trunk/Packages/Common/URegistry.pas (modified) (2 diffs)

trunk/Packages/Common/URegistry.pas

@@ -37 +37 @@
     function DeleteKeyRecursive(const Key: string): Boolean;
     function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
+    function GetValue(const Name: string; const DefaultValue: Integer): Integer; overload;
+    function GetValue(const Name: string; const DefaultValue: string): string; overload;
+    function GetValue(const Name: string; const DefaultValue: Boolean): Boolean; overload;
+    function GetValue(const Name: string; const DefaultValue: Double): Double; overload;
+    procedure SetValue(const Name: string; const Value: Integer); overload;
+    procedure SetValue(const Name: string; const Value: string); overload;
+    procedure SetValue(const Name: string; const Value: Boolean); overload;
+    procedure SetValue(const Name: string; const Value: Double); overload;
     property CurrentContext: TRegistryContext read GetCurrentContext write SetCurrentContext;
   end;
@@ -97 +105 @@
       Result := DefaultValue;
     end;
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: Integer
+  ): Integer;
+begin
+  Result := ReadIntegerWithDefault(Name, DefaultValue);
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: string
+  ): string;
+begin
+  Result := ReadStringWithDefault(Name, DefaultValue);
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: Boolean
+  ): Boolean;
+begin
+  Result := ReadBoolWithDefault(Name, DefaultValue);
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: Double
+  ): Double;
+begin
+  Result := ReadFloatWithDefault(Name, DefaultValue);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: Integer);
+begin
+  WriteInteger(Name, Value);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: string);
+begin
+  WriteString(Name, Value);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: Boolean);
+begin
+  WriteBool(Name, Value);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: Double);
+begin
+  WriteFloat(Name, Value);
 end;