X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FCONFIG.pas;h=44866f41e1cc0195ba10cd98fe6735128d0048c3;hb=84fa2f88d5d832ed9cc932fd2860d74467e242e1;hp=2d1a5f2ac1cacd1f2a666a96fb009fe804656d69;hpb=5472594f32e33da0c66606ec9eebc8f798ef6b54;p=d2df-sdl.git diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas index 2d1a5f2..44866f4 100644 --- a/src/shared/CONFIG.pas +++ b/src/shared/CONFIG.pas @@ -1,4 +1,4 @@ -(* Copyright (C) DooM 2D:Forever Developers +(* Copyright (C) Doom 2D: Forever Developers * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -13,17 +13,16 @@ * You should have received a copy of the GNU General Public License * along with this program. If not, see . *) -{$MODE DELPHI} +{$INCLUDE a_modes.inc} unit CONFIG; -{ ------------------------------------ -CONFIG.PAS ÂÅÐÑÈß ÎÒ 24.09.06 ------------------------------------ -} - interface +{$IFDEF USE_MEMPOOL} +uses + mempool; +{$ENDIF} + type TParam = record Param: ShortString; @@ -31,7 +30,7 @@ type Section: Word; end; - TConfig = class(TObject) + TConfig = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF} private FParams: array of TParam; FSections: array of ShortString; @@ -58,7 +57,7 @@ type implementation uses - SysUtils, BinEditor; + SysUtils, utils; { TConfig }