Цитата:
Сообщение от 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}
...
З.Ы. не заметил сразу, что нужно построчно и во всём файле