Changeset 345 for PersistentData/Backend/UPDClientRegistry.pas

Timestamp:

Apr 3, 2012, 8:30:29 AM (12 years ago)

Author:

chronos

Message:

• Modified: MySQL Schema renamed to more general Path. Path will be used for Registry, INI files and other persistent storages.

File:

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

PersistentData/Backend/UPDClientRegistry.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UPDClient;
+  Classes, SysUtils, UPDClient, Registry;
 
 type
@@ -13 +13 @@
 
   TPDClientRegistry = class(TPDClient)
+    Reg: TRegistry;
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
@@ -37 +38 @@
 constructor TPDClientRegistry.Create;
 begin
+  Reg := TRegistry.Create;
   inherited Create;
 end;
@@ -42 +44 @@
 destructor TPDClientRegistry.Destroy;
 begin
+  Reg.Free;
   inherited Destroy;
 end;