浏览代码

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

git-svn-id: trunk@12583 -
marco 16 年之前
父节点
当前提交
9ff8491cee
共有 1 个文件被更改,包括 1 次插入1 次删除
  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;