X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2FCONFIG.pas;h=139529084d4f6d675c0d4ffaf98b279673f526ff;hb=987c4a835a103345b59937e8e1be8524a6228712;hp=0a4898e2838c2db4c47fd0fc14a8ba971461bd27;hpb=ac201b02f10ef558087d50f6b03b4519ab567558;p=d2df-sdl.git diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas index 0a4898e..1395290 100644 --- a/src/shared/CONFIG.pas +++ b/src/shared/CONFIG.pas @@ -1,14 +1,27 @@ -{$MODE DELPHI} +(* 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; @@ -16,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; @@ -43,7 +56,7 @@ type implementation uses - SysUtils, BinEditor; + SysUtils, utils; { TConfig }