Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как прочитать строку??? [D7, XP]

lobach © (2007-03-26 15:34:00)
Как прочитать n-ую строку из текст. файла??

RASkov (2007-03-27 00:54:00) [1]
> [7] Плохиш © (27.03.07 00:40)

Да это я что-то не соображу, что конкретно имел ввиду [3] Anatoly Podgoretsky ... :(
А вобще согласен, и поэтому "улыбнулся" перед кодом.

Плохиш (2007-03-27 00:40:00) [2]

> но можно и так :)
> for i := 1 to n do if Eof(f) then Break else readln(f, Sn);

Нафига тратить время на пересылку из буфера в переменную ненужных строк?

RASkov (2007-03-27 00:38:00) [3]
> while not eof и счетчик. Мне попадались файлы, в которых строк намного меньше чем n

но можно и так :)
for i := 1 to n do if Eof(f) then Break else readln(f, Sn);

> [5] DrPass © (27.03.07 00:11)

Не уловил смысл :(

DrPass (2007-03-27 00:11:00) [4]

> Мне попадались файлы, в которых строк намного меньше чем
> n

Достаточно сделать n:= 1 в начале программы, и проблема сама собой исчерпывается.

McSimm (2007-03-27 00:09:00) [5]

> for i := 1 to n-1 do

я бы все же посоветовал while not eof и счетчик.
Мне попадались файлы, в которых строк намного меньше чем n

Anatoly Podgoretsky (2007-03-27 00:06:00) [6]
> Рамиль (26.03.2007 15:35:01) [1]

Совсем ни к чему делать два readln

Сорокин М (2007-03-26 15:38:00) [7]
strings[n]

Рамиль (2007-03-26 15:35:00) [8]
for i := 1 to n-1 do readln(f);
readln(f, Sn);

Наверх

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