Changeset 456 for Common/URegistry.pas

Timestamp:

Nov 28, 2012, 7:46:07 AM (12 years ago)

Author:

chronos

Message:

• Modified: In Common package method DebugLog.Add now expect Text as first parameter.

File:

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

Common/URegistry.pas

@@ -17 +17 @@
     rrKeyDynData = HKEY($80000006));
 
+  { TRegistryContext }
+
   TRegistryContext = record
     RootKey: HKEY;
     Key: string;
+    class operator Equal(A, B: TRegistryContext): Boolean;
   end;
 
@@ -49 +52 @@
   Result.RootKey := RootKey;
   Result.Key := Key;
+end;
+
+{ TRegistryContext }
+
+class operator TRegistryContext.Equal(A, B: TRegistryContext): Boolean;
+begin
+  Result := (A.Key = B.Key) and (A.RootKey = B.RootKey);
 end;