Как из текстового файла убрать символы перевода строки?

← →
Фрося (2006-01-25 23:21) [0]

Подскажите, мастера..
Файл текстовы, окола 900-950 килобайт.
Спасибо.

← →
Джо © (2006-01-25 23:24) [1]

1. Считываем файл.
2. Проходимся по всем символам.
3. В процессе прохода символы перевода строки игнорируем, остальные копируем в свое хранилище.
4. Сохраняем полученные данные в файл.

← →
Gero © (2006-01-25 23:28) [2]

Читаешь Readln, пишешь Write.

← →
Фрося (2006-01-25 23:31) [3]

2Джоvar
F: TextFile;
i: Integer;
str, out: String;
AssignFile(F,"book.txt);
while not eof(F) do
begin
for i := 1 to Length(str) do
begin
if str[i] <> #13 then//или "#13" с апострофом?
out := out + str[i];
end;
end;

Так что-ли?

← →
Gero © (2006-01-25 23:33) [4]

> if str[i] <> #13 then//или "#13" с апострофом?

Если файл в Windows-формате, то #13#10.

← →
Фрося (2006-01-25 23:33) [5]

Gero
Я так понимаю что ReadLn читает вместе с переводом строки.
А Write пишет этот перевод, или нет?

← →
Gero © (2006-01-25 23:34) [6]

У меня короче:

while not Eof(File1) do
begin
Readln(File1, Line);
Write(File2, Line);
end;

← →
Фрося (2006-01-25 23:36) [7]

Gero
Джо

Спасибо ребята...

> Я так понимаю что ReadLn читает вместе с переводом строки.

Нет, символы перевода в результат не добавляются.

> А просили только символы перевода строки, а про символ возврата
> каретки не было :)

Точно, ошибочка вышла :)

Как из текстового файла убрать символы перевода строки? Найти похожие ветки