удалить строку

← →
Daria (2005-12-23 15:50) [0]

Молодые люди! ПОМОГИТЕ!!! как удалить из текстового файла пустые строки???

← →
Johnmen © (2005-12-23 15:53) [1]

Я не помогу. Немолодой уже.......
Хотя что-то ещё помню: зачитать файл, удалить строки, записать.....

← →
The_scorpion © (2005-12-23 15:56) [2]

Попробуй файл удали, должны и пустые строки удалиться...:)))

← →
Плохиш © (2005-12-23 15:59) [3]

> Daria (23.12.05 15:50)
> Молодые люди! ПОМОГИТЕ!!! как удалить из текстового файла
> пустые строки???

Дочка, в файлах нет строк.

← →
Anatoly Podgoretsky © (2005-12-23 16:14) [4]

Плохиш © (23.12.05 15:59) [3]
В текстовых файлах есть.

← →
umbra © (2005-12-23 16:46) [5]

один из способов - загрузить файл в TStrings, удалить пустые строки, сохранить под тем же именем

← →
Плохиш © (2005-12-24 00:18) [6]

> Anatoly Podgoretsky © (23.12.05 16:14) [4]
> Плохиш © (23.12.05 15:59) [3]
> В текстовых файлах есть.

В интерпретации, после обработки есть, а в самом файле есть только набор байтов :-)

← →
з. танька (2005-12-24 00:51) [7]

мона прошвырнуться по файлу и дубли #13#10 удалить..

← →
Johnmen © (2005-12-24 01:00) [8]

А дубли #10 не надо?

← →
Германн © (2005-12-24 02:36) [9]

2 Johnmen © (23.12.05 15:53) [1]
А если бы вопрос был бы типа - "Мальчики! ПОМОГИТЕ!!! как удалить из текстового файла пустые строки???
Как бы ты ответил? :-)
Пошел бы ты по пути Digiman?
Или тоже говорил-бы про "дубли #10"?
:-)

Открыть текстовый файл A на чтение Открыть текстовый файл B на запись пока не конец A читать строку из A если строка не пустая, то записать строку в B конец закрыть A закрыть B

var s:TStringList; i: integer; begin s := TStringList.Create(); s.LoadFromFile("text.txt"); i:=0; while i<s.count do if trim(s[i])="" then s.delete(i) else inc(i); s.SaveToFile("text.txt"); end;
Я бы так сделал

удалить строку Найти похожие ветки