Changeset 391
- Timestamp:
- Jul 18, 2012, 10:59:10 PM (12 years ago)
- Location:
- Registry
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Registry/UGeneralRegistry.pas
r390 r391 6 6 7 7 uses 8 Classes, SysUtils, IniFiles, WinRegistry; 8 Classes, SysUtils, IniFiles, XMLRead, XMLWrite, DOM 9 {$IFDEF Windows} 10 , WinRegistry 11 {$ENDIF}; 9 12 10 13 type … … 111 114 112 115 TXMLRegistry = class(TBaseRegistry) 116 XMLDocument: TXMLDocument; 113 117 function OpenKey(const Key: string; CreateNew: Boolean): Boolean; override; 118 constructor Create; 119 destructor Destroy; override; 114 120 end; 115 121 … … 124 130 TMemoryRegistry = class(TBaseRegistry) 125 131 end; 132 133 {$IFDEF Windows} 126 134 127 135 { TWinRegistry } … … 159 167 destructor Destroy; override; 160 168 end; 169 {$ENDIF} 161 170 162 171 procedure Register; … … 175 184 { TBaseRegistry } 176 185 186 {$IFDEF Windows} 177 187 { TWinRegistry } 178 188 … … 335 345 inherited Destroy; 336 346 end; 337 338 339 { TBaseRegistry } 347 {$ENDIF} 340 348 341 349 { TIniRegistry } … … 357 365 begin 358 366 367 end; 368 369 constructor TXMLRegistry.Create; 370 begin 371 XMLDocument := TXMLDocument.Create; 372 end; 373 374 destructor TXMLRegistry.Destroy; 375 begin 376 XMLDocument.Free; 377 inherited Destroy; 359 378 end; 360 379
Note:
See TracChangeset
for help on using the changeset viewer.