[Admiral]

Этот код заменяет только на один пробел

Код:

Program TabIntoSpace;

var
   MyTextFile: Text;
   MyNewTextFile: Text;
   i: Integer;
   S,O: String;

begin
     Assign (MyTextFile, 'C:\File2tab.txt');
     Assign (MyNewTextFile, 'C:\NewFileS.txt');

     Reset(MyTextFile);
     Rewrite(MyNewTextFile);
     while not EOF(MyTextFile) do
           begin
           Readln(MyTextFile, S);
              for i:=0 to Length(S) do
                  begin
                  O[i]:=S[i];
                    if S[i]=chr(9) then
                       O[i]:=' ';
                  end;
              WriteLn(MyNewTextFile, O);
           end;

     Close(MyTextFile);
     Close(MyNewTextFile);
end.

chr(9) это функция, 9 аргумент при котором она возвращает табуляцию из кода управляющего символа ASCII в тхт файле.

[keep21]

спасибо)