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

Timestamp:

Jan 17, 2022, 10:11:05 PM (2 years ago)

Author:

chronos

Message:

• Modified: Eliminated compilation hints from Common package.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -132 +132 @@
 function TRegistryEx.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
 begin
-  {$IFDEF Linux}
+  {$IFDEF UNIX}
   //CloseKey;
   {$ENDIF}
@@ -140 +140 @@
 function TRegistryEx.GetCurrentContext: TRegistryContext;
 begin
-  Result.Key := CurrentPath;
+  Result.Key := String(CurrentPath);
   Result.RootKey := RootKey;
 end;