2 Copyright (C) 2010 MegaBrutal
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.
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.
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/>.
23 uses SysUtils
, INIFiles
;
27 TExtBoolINIFile
= class(TINIFile
)
29 function ReadBool(const Section
, Ident
: string; Default
: boolean): boolean; override;
37 function TExtBoolINIFile
.ReadBool(const Section
, Ident
: string; Default
: boolean): boolean;
38 var Value
: string; DefValStr
: shortstring
;
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
);