Browse Source

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

git-svn-id: trunk@12583 -
marco 16 years ago
parent
commit
9ff8491cee
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/strutils.pp

+ 1 - 1
rtl/objpas/strutils.pp

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