Показать сообщение отдельно
  #3  
Старый 16.04.2018, 18:14
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Taras2020
...почему то обрабатывает не так...
Мусора дофига
Код:
...
  while not Eof(ft) do
  begin
   Readln(ft, S);
   Pos1:= 0;

   for i := Length(S) downto 1 do

     if S[i] = '"' then
      if Pos1 = 0 then Pos1:= i+1
       else
        begin
         Delete(S, i, Pos1-i);
         Pos1:= 0;
        end;

     Writeln(ft2, S);

  end; {while}
...
З.Ы. не заметил сразу, что нужно построчно и во всём файле
Ответить с цитированием