X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fshared%2FCONFIG.pas;h=155ebacabbeee0357f7e6fbd21225d2541c014f8;hb=31d174a428ef1235e1708b0738804b47e006cf5c;hp=3dfd736f4a6e1f492090993a7e4a11c96d63053c;hpb=69e1c288d6d270abd835cde8a87e818d0298799f;p=d2df-sdl.git diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas index 3dfd736..155ebac 100644 --- a/src/shared/CONFIG.pas +++ b/src/shared/CONFIG.pas @@ -24,6 +24,9 @@ CONFIG.PAS interface +uses + mempool; + type TParam = record Param: ShortString; @@ -31,7 +34,7 @@ type Section: Word; end; - TConfig = class(TObject) + TConfig = class(TPoolObject) private FParams: array of TParam; FSections: array of ShortString;