* booltostr now D7 compat.

git-svn-id: trunk@5744 -

rtl/objpas/sysutils/sysstr.inc

@@ -1373,23 +1373,44 @@ begin
     Raise EConvertError.CreateFmt(SInvalidBoolean,[S]);
 end;
 
+function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string;
 
-function BoolToStr(B: Boolean): string;
+procedure CheckStrs;
 begin
+    If Length(TrueBoolStrs)=0 then
+      begin
+        SetLength(TrueBoolStrs,1);
+        TrueBoolStrs[0]:='True';
+      end;
+    If Length(FalseBoolStrs)=0 then
+      begin
+        SetLength(FalseBoolStrs,1);
+        FalseBoolStrs[0]:='False';
+      end;
+end;
+
+begin
+ if UseBoolStrs Then
+  begin
+    CheckStrs;
+    if B then
+      Result:=TrueBoolStrs[0] 
+    else
+      Result:=FalseBoolStrs[0];
+  end
+ else
   If B then
-    Result:='TRUE'
+    Result:='-1'
   else
-    Result:='FALSE';
+    Result:='0';
 end;
 
-
 function StrToBoolDef(const S: string; Default: Boolean): Boolean;
 begin
   if not(TryStrToBool(S,Result)) then
     Result:=Default;
 end;
   
-  
 function TryStrToBool(const S: string; out Value: Boolean): Boolean;
 Var
   Temp : String;

rtl/objpas/sysutils/sysstrh.inc

@@ -59,6 +59,9 @@ Const
   EmptyWideStr : WideString = '';
 //  NullWideStr : PWideString = @EmptyWideStr;
 
+Var TrueBoolStrs,
+    FalseBoolStrs : Array of String;
+
 function NewStr(const S: string): PString;
 procedure DisposeStr(S: PString);
 procedure AssignStr(var P: PString; const S: string);
@@ -161,7 +164,7 @@ function TryStrToCurr(const S: string;Var Value : Currency): Boolean;
 function StrToCurrDef(const S: string; Default : Currency): Currency;
 
 function StrToBool(const S: string): Boolean;
-function BoolToStr(B: Boolean): string;
+function BoolToStr(B: Boolean;UseBoolStrs:Boolean=False): string;
 function StrToBoolDef(const S: string; Default: Boolean): Boolean;
 function TryStrToBool(const S: string; out Value: Boolean): Boolean;