Changeset 391 for Registry


Ignore:
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:
1 deleted
1 edited

Legend:

Unmodified
Added
Removed
  • Registry/UGeneralRegistry.pas

    r390 r391  
    66
    77uses
    8   Classes, SysUtils, IniFiles, WinRegistry;
     8  Classes, SysUtils, IniFiles, XMLRead, XMLWrite, DOM
     9  {$IFDEF Windows}
     10  , WinRegistry
     11  {$ENDIF};
    912
    1013type
     
    111114
    112115  TXMLRegistry = class(TBaseRegistry)
     116    XMLDocument: TXMLDocument;
    113117    function OpenKey(const Key: string; CreateNew: Boolean): Boolean; override;
     118    constructor Create;
     119    destructor Destroy; override;
    114120  end;
    115121
     
    124130  TMemoryRegistry = class(TBaseRegistry)
    125131  end;
     132
     133  {$IFDEF Windows}
    126134
    127135  { TWinRegistry }
     
    159167    destructor Destroy; override;
    160168  end;
     169  {$ENDIF}
    161170
    162171procedure Register;
     
    175184{ TBaseRegistry }
    176185
     186{$IFDEF Windows}
    177187{ TWinRegistry }
    178188
     
    335345  inherited Destroy;
    336346end;
    337 
    338 
    339 { TBaseRegistry }
     347{$ENDIF}
    340348
    341349{ TIniRegistry }
     
    357365begin
    358366
     367end;
     368
     369constructor TXMLRegistry.Create;
     370begin
     371  XMLDocument := TXMLDocument.Create;
     372end;
     373
     374destructor TXMLRegistry.Destroy;
     375begin
     376  XMLDocument.Free;
     377  inherited Destroy;
    359378end;
    360379
Note: See TracChangeset for help on using the changeset viewer.