Change extension of the main project file from Delphi to Lazarus-specific

[d2df-sdl.git] / src / shared / CONFIG.pas

diff --git a/src/shared/CONFIG.pas b/src/shared/CONFIG.pas
index 3dfd736f4a6e1f492090993a7e4a11c96d63053c..4aa7e659b79a47c6d0351c4002533414dc0c3fc9 100644 (file)
--- a/src/shared/CONFIG.pas
+++ b/src/shared/CONFIG.pas
@@ -16,14 +16,13 @@
 {$INCLUDE a_modes.inc}
 unit CONFIG;
 
 {$INCLUDE a_modes.inc}
 unit CONFIG;
 

-{
------------------------------------
-CONFIG.PAS ÂÅÐÑÈß ÎÒ 24.09.06
------------------------------------
-}
-

 interface
 
 interface
 

+{$IFDEF USE_MEMPOOL}
+uses
+  mempool;
+{$ENDIF}
+

 type
   TParam = record
    Param: ShortString;
 type
   TParam = record
    Param: ShortString;


@@ -31,7 +30,7 @@ type
    Section: Word;
   end;
 
    Section: Word;
   end;
 

-  TConfig = class(TObject)
+  TConfig = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF}

    private
     FParams: array of TParam;
     FSections: array of ShortString;
    private
     FParams: array of TParam;
     FSections: array of ShortString;


@@ -58,7 +57,7 @@ type
 implementation
 
 uses
 implementation
 
 uses

-  SysUtils, BinEditor;
+  SysUtils, utils;

 
 { TConfig }
 
 
 { TConfig }