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

Timestamp:

Apr 25, 2022, 6:22:53 PM (2 years ago)

Author:

chronos

Message:

• Modified: Update Common package to version 0.10.
• Modified: fgl unit replaced by Generics.Collections.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -46 +46 @@
     HKEY_CURRENT_CONFIG, HKEY_DYN_DATA);
 
+
 implementation
-
 
 { TRegistryContext }
@@ -138 +138 @@
 function TRegistryEx.GetCurrentContext: TRegistryContext;
 begin
-  Result.Key := CurrentPath;
+  Result.Key := String(CurrentPath);
   Result.RootKey := RootKey;
 end;