|
#1
|
|||
|
|||
строки в файле
как прочитать, например, каждую десятую строку из файла?
|
#2
|
||||
|
||||
Придется читать все, потом выбирать нужные.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
как вариант:
Код:
var i:integer; F:TextFile; s:string; ... begin i:=1; s:=''; try AssignFile(F,'F.txt'); Reset(F); while not EoF(F) do begin ReadLn(F,s); if i mod 10 = 0 then begin // операции со строкой end; Inc(i); end; Finally CloseFile(F); end; end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 20.09.2009 в 20:49. |