Changeset 30 for trunk/Packages/Common/RegistryEx.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/RegistryEx.pas (moved) (moved from trunk/Packages/Common/URegistry.pas ) (4 diffs)

trunk/Packages/Common/RegistryEx.pas

@@ -1 @@
-unit URegistry;
+unit RegistryEx;
 
 interface
@@ -38 +38 @@
     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;
-    function GetValue(const Name: string; const DefaultValue: Char): Char; 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;
-    procedure SetValue(const Name: string; const Value: Char); overload;
     property CurrentContext: TRegistryContext read GetCurrentContext write SetCurrentContext;
   end;
@@ -120 +110 @@
 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;
-
-function TRegistryEx.GetValue(const Name: string; const DefaultValue: Char
-  ): Char;
-begin
-  Result := ReadCharWithDefault(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;
-
-procedure TRegistryEx.SetValue(const Name: string; const Value: Char);
-begin
-  WriteChar(Name, Value);
-end;
-
 function TRegistryEx.DeleteKeyRecursive(const Key: string): Boolean;
 var
@@ -198 +133 @@
   //CloseKey;
   {$ENDIF}
-  Result := inherited OpenKey(Key, CanCreate);
+  Result := inherited;
 end;