EINIFiles.pas

   1 {
   2    Copyright (C) 2010 MegaBrutal
   3
   4    This unit is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU Lesser General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This unit is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 }
  17
  18
  19 {$MODE DELPHI}
  20 unit EINIFiles;
  21
  22 interface
  23 uses SysUtils, INIFiles;
  24
  25 type
  26
  27    TExtBoolINIFile = class(TINIFile)
  28    public
  29       function ReadBool(const Section, Ident: string; Default: boolean): boolean; override;
  30    end;
  31
  32
  33
  34 implementation
  35
  36
  37 function TExtBoolINIFile.ReadBool(const Section, Ident: string; Default: boolean): boolean;
  38 var Value: string; DefValStr: shortstring;
  39 begin
  40    if Default then DefValStr:= 'ON' else DefValStr:= 'OFF';
  41    Value:= UpperCase(ReadString(Section, Ident, DefValStr));
  42    if Value = 'ON' then        Result:= true
  43    else if Value = 'OFF' then  Result:= false
  44    else                        Result:= inherited ReadBool(Section, Ident, Default);
  45 end;
  46
  47
  48 end.