paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 03:19:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* booltostr overload

Browse Source 
git-svn-id: trunk@11600 -
This commit is contained in:
marco 2008-08-17 13:26:02 +00:00
parent 5feba9b3d7
commit 03fd61b68d
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/sysstr.inc
View File

@ -1740,6 +1740,12 @@ begin
Result:='0';
end;
// from textmode IDE util funcs.
function BoolToStr(B: boolean; const TrueS, FalseS: string): string;
begin
if B then Result:=TrueS else BoolToStr:=FalseS;
end;
function StrToBoolDef(const S: string; Default: Boolean): Boolean;
begin
if not(TryStrToBool(S,Result)) then

3
rtl/objpas/sysutils/sysstrh.inc
View File

@ -210,7 +210,8 @@ Function FormatCurr(const Format: string; Value: Currency; Const FormatSettings:
{$endif}
function StrToBool(const S: string): Boolean;
function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string;
function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string;
function BoolToStr(B: Boolean;const TrueS,FalseS:string): string; inline;
function StrToBoolDef(const S: string; Default: Boolean): Boolean;
function TryStrToBool(const S: string; out Value: Boolean): Boolean;