Merged revisions 11680,11683,11685,11689-11692,11694-11696,11698,11701-11702,11705-11707,11712-11718,11723-11726,11728-11729,11733-11737,11778,11780-11781,11785,11810,11822,11831,11836,11848,11872,11876-11878,11881-11883,11889,11891-11895,11899-11902,11920-11925,11931-11932,11935,11938,11941,11986,11992,12014,12018,12041-12042,12044,12046,12051-12053,12055,12058,12063,12067-12072,12074,12076,12079-12081,12083-12084,12086-12087 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r11680 | michael | 2008-09-01 00:25:19 +0200 (Mon, 01 Sep 2008) | 1 line
  
  * Fixed formaatfloat for negative numbers (Bug ID 11711) objpas/sysutils/sysstr.inc
........
  r12087 | michael | 2008-11-14 14:04:51 +0100 (Fri, 14 Nov 2008) | 1 line
  
  * Fixed bug #12385
........

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

rtl/objpas/sysutils/sysstr.inc

@@ -1982,7 +1982,14 @@ 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) and (Digits[1]<>'-') then
+        begin
+        Writeln('Inserting - at ',I);
+        Insert('-',Digits,I);
+        Inc(DecimalPoint);
+        Inc(I);
+        end;
+      While (I<DecimalPoint) And (Digits[I] in [' ','-']) Do
         Begin
         Digits[I] := '0';
         Inc(I);