Changeset 361 for PersistentData/Backend/UPDClientINI.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Demo for PersistentData package.

File:

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

PersistentData/Backend/UPDClientINI.pas

@@ -13 +13 @@
 
   TPDClientINI = class(TPDClient)
+  public
     IniFile: TIniFile;
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
     FileName: string;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Connect; override;
@@ -39 +40 @@
 end;*)
 
-constructor TPDClientINI.Create;
+constructor TPDClientINI.Create(AOwner: TComponent);
 begin
-  inherited Create;
+  inherited;
+  BackendName := 'INI';
 end;