Changeset 345 for PersistentData/Backend/UPDClientINI.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/UPDClientINI.pas (modified) (3 diffs)

PersistentData/Backend/UPDClientINI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UPDClient;
+  Classes, SysUtils, UPDClient, IniFiles;
 
 type
@@ -13 +13 @@
 
   TPDClientINI = class(TPDClient)
+    IniFile: TIniFile;
     //procedure GetItemList(Condition: TCondition; ItemList: TItemList); override;
     //procedure SetItemList(Condition: TCondition; ItemList: TItemList); override;
+    FileName: string;
     constructor Create; override;
     destructor Destroy; override;
+    procedure Connect; override;
+    procedure Disconnect; override;
   end;
 
@@ -42 +46 @@
 destructor TPDClientINI.Destroy;
 begin
+  Disconnect;
   inherited Destroy;
+end;
+
+procedure TPDClientINI.Connect;
+begin
+  IniFile := TIniFile.Create(FileName);
+end;
+
+procedure TPDClientINI.Disconnect;
+begin
+  FreeAndNil(IniFile);
 end;