Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текстовый файл и пустые строки. [D6, XP]


Drowsy ©   (2009-10-01 22:13:00) 

При чтении текстового файла TextFile, обнаружил, что пустые строки
ReadLn "проглатывает". А как-бы узнать, что такие "строки", состоящие из символа перевода каретки в файле есть?


Drowsy   (2009-10-02 10:03:00) [1]


> люди его прочитавшие с удовольствием помогут такому вопрошающему

Да, я знаю.
Несмотря на несовершенство моих вопросов, я на многие здесь получил ответы и очень полезные советы, за что всем большое искреннее спасибо.


Anatoly Podgoretsky   (2009-10-02 10:03:00) [2]

> Drowsy  (02.10.2009 00:46:11)  [11]

Если я не отвечаю, то это не значит, что не читаю, просто не хочу тратить время.


Имхо   (2009-10-02 09:17:00) [3]

Drowsy, между прочим, если правильно задавать вопрос, то ответ (достаточно часто) можно получить и самому, уже не говоря о том, что люди его прочитавшие с удовольствием помогут такому вопрошающему. А всего лишь нужно задать вопрос, хотя бы по шаблону:

Вопрос:
бла-бла-бла

Задача:
бла-бла-бла

Что я сделал:
приводится код

Будь уверен, такой вопрос не останется без ответа.


sniknik   (2009-10-02 07:53:00) [4]

> коды не интересовали
и это ты зря, многие просто игнорируют вопросы без кода, уже "решенные" автором с выдачей "виноватого". при том что "виноватой" частью без проблем пользуется масса народу. просто ставят себе пометку "абсурд" и листают дальше.


Drowsy   (2009-10-02 01:15:00) [5]

Здорово, когда в ответе можно узнать о возрасте ридлайна.


Германн   (2009-10-02 01:03:00) [6]


> Мои дурацкие вопросы никогда Вашего внимания не привлекали

Ну эт ты здря! Модераторы читают все вопросы (да и все ответы тоже). Работа у них такая. :)


Drowsy   (2009-10-02 00:46:00) [7]

Мои дурацкие вопросы никогда Вашего внимания не привлекали, и, тем более, коды не интересовали, как и в данном случае.


Anatoly Podgoretsky   (2009-10-02 00:41:00) [8]

> Drowsy  (02.10.2009 00:30:09)  [9]

Не буду про других говорить, но мною замечено и даже точнее - получить от тебя код с ошибкой, это невыполнимая задача.


Drowsy   (2009-10-02 00:30:00) [9]


> Что же ты мозги нам морочил, не работает мол.

Не было такой цели, уж поверьте.
> за тобой замечено, что ты не приводишь якобы не рабочий
> код.

Неужели?
Где, кем, когда замечено?


Anatoly Podgoretsky   (2009-10-02 00:24:00) [10]

> Drowsy  (02.10.2009 00:19:07)  [7]

Что же ты мозги нам морочил, не работает мол.
Между прочим за тобой замечено, что ты не приводишь якобы не рабочий код.


Drowsy   (2009-10-02 00:19:00) [11]

Пустые строки глотает :
 while not SeekEof(Src) do
Поменял на :
 while not Eof(Src) do

теперь нормально считывает.


Drowsy   (2009-10-01 23:41:00) [12]

Приятно, что сумел Вас удивить.


Anatoly Podgoretsky   (2009-10-01 23:35:00) [13]

> Drowsy  (01.10.2009 23:19:04)  [4]

О том, что ни разу строка не пропала, а у тебя почему то пропадает. Между прочим ReadLn уже свыше 30 лет и надо же такая удивительная новость.


Drowsy   (2009-10-01 23:19:00) [14]


> Слова, слова, но не разу не пропало.

Это Вы о чём?


Anatoly Podgoretsky   (2009-10-01 23:17:00) [15]

> Drowsy  (01.10.2009 22:13:00)  [0]

Слова, слова, но не разу не пропало.


Drowsy   (2009-10-01 22:49:00) [16]

Понял, спасибо!


palva   (2009-10-01 22:32:00) [17]

Строки в файле разделяются последовательностью символов #13#10. При вводе строк по ReadLn эти символы в состав строки не попадают. Если у вас одиночный символ перевода каретки #13 то он войдет в состав некоторой строки. Делайте поиск в каждой введенной строке символа #13 и разделяйте введенную строку на несколько по этому символу.

Другой вариант это вводить символы (char) функцией Read и последовательно анализировать каждый символ.


Наверх

Титульная страница Поиск, карта сайта Написать письмо