Строки... Опции

[sandman]

Вроде несложная задачка..
"В текстовом файле (размер до 600kb) удалить все символы перевода строки."
А как подступиться не знаю.. Мозга не варит Советом, хоть помогите...

[trminator]

Вариант с readln'ом не работает.

Я согласен, правильнее было бы обрабатывать по символам, как ты рекомендовал. Но это грустно и тоскливо (по-моему). Поэтому я предложил такой способ.

Но мне интересно, почему он у тебя не проходит. Я его только что прогнал - он работает (Delphi console application)

Код

program Project2;
{$APPTYPE CONSOLE}
uses
 SysUtils;
var input, output : text;
   s: string;
begin
 assign(input,'input.txt');
 assign(output,'output.txt');
 reset(input);
 rewrite(output);

 while not EOF(input) do begin
   ReadLn(input,s);
   Write(output,s)
 end;

 close(input);
 close(output);
end.

Сейчас проверю в BP7