Changeset 581 for Common/RegistryEx.pas

Timestamp:

Dec 10, 2024, 4:50:34 PM (12 days ago)

Author:

chronos

Message:

• Modified: Improved Common package.

File:

• Common/RegistryEx.pas (modified) (2 diffs)

Common/RegistryEx.pas

@@ -36 +36 @@
     function ReadFloatWithDefault(const Name: string;
       DefaultValue: Double): Double;
+    function ReadDateTimeWithDefault(const Name: string; DefaultValue: TDateTime): TDateTime;
     function DeleteKeyRecursive(const Key: string): Boolean;
     function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
@@ -110 +111 @@
 end;
 
+function TRegistryEx.ReadDateTimeWithDefault(const Name: string;
+  DefaultValue: TDateTime): TDateTime;
+begin
+  if ValueExists(Name) then Result := ReadDateTime(Name)
+    else begin
+      WriteDateTime(Name, DefaultValue);
+      Result := DefaultValue;
+    end;
+end;
+
 function TRegistryEx.DeleteKeyRecursive(const Key: string): Boolean;
 var