* Fixed formaatfloat for negative numbers (Bug ID 11711) objpas/sysutils/sysstr.inc

git-svn-id: trunk@11680 -

rtl/objpas/sysutils/sysstr.inc

@@ -2031,7 +2031,13 @@ Var
           Digits[DecimalPoint] := ' ';
       { Convert spaces left from obligatory decimal point to zeroes. }
       I:=DecimalPoint-Placehold[2];
-      While (I<DecimalPoint) And (Digits[I]=' ') Do
+      If (Value<0) and (I<DecimalPoint) then
+        begin
+        Insert('-',Digits,I);
+        Inc(DecimalPoint);
+        Inc(I);
+        end;
+      While (I<DecimalPoint) And (Digits[I] in [' ','-']) Do
         Begin
         Digits[I] := '0';
         Inc(I);