eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ReadBoolean

This commit is contained in:
mysticbbs 2012-09-26 16:48:39 -04:00
parent 6376151631
commit 3790e66463
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mdl/m_inireader.pas
View File

@ -17,6 +17,7 @@ Type
Destructor Destroy; Override; Destructor Destroy; Override;
Function ReadString (Category, Value, DefValue: String) : String; Function ReadString (Category, Value, DefValue: String) : String;
Function ReadInteger (Category, Value: String; DefValue: LongInt) : LongInt; Function ReadInteger (Category, Value: String; DefValue: LongInt) : LongInt;
Function ReadBoolean (Category, Value: String; DefValue: Boolean) : Boolean;
End; End;
Implementation Implementation
@ -98,4 +99,17 @@ Begin
Result := strS2I(ReadString(Category, Value, strI2S(DefValue))); Result := strS2I(ReadString(Category, Value, strI2S(DefValue)));
End; End;
Function TIniReader.ReadBoolean (Category, Value: String; DefValue: Boolean) : Boolean;
Var
DefStr : String;
Begin
If DefValue Then
DefStr := 'TRUE'
Else
DefStr := 'FALSE';
Result := strUpper(ReadString(Category, Value, DefStr)) = 'TRUE';
End;
End. End.