Changeset 391 for Registry

Timestamp:

Jul 18, 2012, 10:59:10 PM (12 years ago)

Author:

chronos

Message:

• Modified: GeneralRegistry compilation on Linux. So far XMLRegistry support is missing.

Location:

Registry

Files:

• UGeneralRegistry.pas (modified) (7 diffs)
• regini.inc (deleted)

Registry/UGeneralRegistry.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, IniFiles, WinRegistry;
+  Classes, SysUtils, IniFiles, XMLRead, XMLWrite, DOM
+  {$IFDEF Windows}
+  , WinRegistry
+  {$ENDIF};
 
 type
@@ -111 +114 @@
 
   TXMLRegistry = class(TBaseRegistry)
+    XMLDocument: TXMLDocument;
     function OpenKey(const Key: string; CreateNew: Boolean): Boolean; override;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -124 +130 @@
   TMemoryRegistry = class(TBaseRegistry)
   end;
+
+  {$IFDEF Windows}
 
   { TWinRegistry }
@@ -159 +167 @@
     destructor Destroy; override;
   end;
+  {$ENDIF}
 
 procedure Register;
@@ -175 +184 @@
 { TBaseRegistry }
 
+{$IFDEF Windows}
 { TWinRegistry }
 
@@ -335 +345 @@
   inherited Destroy;
 end;
-
-
-{ TBaseRegistry }
+{$ENDIF}
 
 { TIniRegistry }
@@ -357 +365 @@
 begin
 
+end;
+
+constructor TXMLRegistry.Create;
+begin
+  XMLDocument := TXMLDocument.Create;
+end;
+
+destructor TXMLRegistry.Destroy;
+begin
+  XMLDocument.Free;
+  inherited Destroy;
 end;