Changeset 361 for PersistentData/Backend/UPDClientRegistry.pas

Timestamp:

May 8, 2012, 10:24:35 PM (12 years ago)

Author:

chronos

Message:

• Added: Demo for PersistentData package.

File:

• PersistentData/Backend/UPDClientRegistry.pas (modified) (2 diffs)

PersistentData/Backend/UPDClientRegistry.pas

@@ -16 +16 @@
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -36 +36 @@
 end;*)
 
-constructor TPDClientRegistry.Create;
+constructor TPDClientRegistry.Create(AOwner: TComponent);
 begin
+  inherited;
   Reg := TRegistry.Create;
-  inherited Create;
+  BackendName := 'Windows registry';
 end;