Parcourir la source

* tab2space used zeroes instead of spaces. (mantis 13024)

git-svn-id: trunk@12583 -
marco il y a 16 ans
Parent
commit
9ff8491cee
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      rtl/objpas/strutils.pp

+ 1 - 1
rtl/objpas/strutils.pp

@@ -976,7 +976,7 @@ begin
       begin
       Result[I]:=' ';
       If (Numb>1) then
-        Insert(StringOfChar('0',Numb-1),Result,I);
+        Insert(StringOfChar(' ',Numb-1),Result,I);
       Inc(I,Numb);
       end;
 end;