* booltostr overload

git-svn-id: trunk@11600 -

rtl/objpas/sysutils/sysstr.inc

@@ -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

rtl/objpas/sysutils/sysstrh.inc

@@ -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;