Procházet zdrojové kódy

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

git-svn-id: trunk@12583 -
marco před 16 roky
rodič
revize
9ff8491cee
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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;