- reverted r12089, r12090 and r12324 (merges of r11680, r12087, r12087,

    r12323), because of too many regressions

git-svn-id: branches/fixes_2_2@12338 -

rtl/objpas/sysutils/sysstr.inc

@@ -1950,10 +1950,8 @@ Var
       Width:=Placehold[1]+Placehold[2]+Decimals;
       If (Decimals=0) Then
         Str(Value:Width:0,Digits)
-      Else if Value>=0 then
-        Str(Value:Width+1:Decimals,Digits)
-      else
-        Str(Value:Width+2:Decimals,Digits);
+      Else
+        Str(Value:Width+1:Decimals,Digits);
       len:=Length(Digits);
       { Find the decimal point }
       If (Decimals=0) Then
@@ -1982,19 +1980,13 @@ Var
         places, remove decimal point. }
       If (DecimalPoint < len) And (Digits[DecimalPoint + 1] = ' ') Then
           Digits[DecimalPoint] := ' ';
-      { Convert spaces left from obligatory decimal point to zeroes. 
-        MVC : If - sign is encountered, replace it too, and put at position 1}
+      { Convert spaces left from obligatory decimal point to zeroes. }
       I:=DecimalPoint-Placehold[2];
-      J:=0;
-      While (I<DecimalPoint) And (Digits[I] in [' ','-']) Do
+      While (I<DecimalPoint) And (Digits[I]=' ') Do
         Begin
-        If Digits[i]='-' then
-          J:=I;
         Digits[I] := '0';
         Inc(I);
         End;
-      If (J<>0) then
-        Digits[1]:='-';
       Exp := 0;
       End
     Else