X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FCONFIG.pas;h=139529084d4f6d675c0d4ffaf98b279673f526ff;hb=HEAD;hp=8420d0badd01b087e39adcd1632bb4fffae98818;hpb=ff104a8cdc79693b7546d839605ec73ae135d904;p=d2df-sdl.git diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas index 8420d0b..1395290 100644 --- a/src/shared/CONFIG.pas +++ b/src/shared/CONFIG.pas @@ -1,13 +1,27 @@ +(* 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 + * the Free Software Foundation, version 3 of the License ONLY. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + *) +{$INCLUDE a_modes.inc} unit CONFIG; -{ ------------------------------------ -CONFIG.PAS ÂÅÐÑÈß ÎÒ 24.09.06 ------------------------------------ -} - interface +{$IFDEF USE_MEMPOOL} +uses + mempool; +{$ENDIF} + type TParam = record Param: ShortString; @@ -15,7 +29,7 @@ type Section: Word; end; - TConfig = class(TObject) + TConfig = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF} private FParams: array of TParam; FSections: array of ShortString; @@ -42,7 +56,7 @@ type implementation uses - SysUtils, BinEditor; + SysUtils, utils; { TConfig }