X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fshared%2FCONFIG.pas;h=155ebacabbeee0357f7e6fbd21225d2541c014f8;hb=40946f2651f32969e7188289fda07bcf94c6cca7;hp=8420d0badd01b087e39adcd1632bb4fffae98818;hpb=ff104a8cdc79693b7546d839605ec73ae135d904;p=d2df-sdl.git diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas index 8420d0b..155ebac 100644 --- a/src/shared/CONFIG.pas +++ b/src/shared/CONFIG.pas @@ -1,3 +1,19 @@ +(* 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, either version 3 of the License, or + * (at your option) any later version. + * + * 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; { @@ -8,6 +24,9 @@ CONFIG.PAS interface +uses + mempool; + type TParam = record Param: ShortString; @@ -15,7 +34,7 @@ type Section: Word; end; - TConfig = class(TObject) + TConfig = class(TPoolObject) private FParams: array of TParam; FSections: array of ShortString;