Подсчет числа строк в текстовом файле

В процессе обработки файла часто возникает потребность обнаружить его конец. Например, такая ситуация возникает, если файл нужно прочитать от начала до конца при поиске нужной записи. Для подобного контроля в системе Delphi имеется функция, возвращающая значение true, если после выполнения последней операции ввода/вывода текущая позиция оказывается в самом конце файла, и дальнейшее считывание данных невозможно. Как правило, данная функция применяется при вводе, потому что запись в файл, открытый с помощью процедуры Rewrite, выполняется последовательно, и текущая позиция всегда располагается в конце файла.

Данная функция носит название Eof и имеет один единственный параметр – файловую переменную.

При использовании функции Eof надо помнить, что если она вернула значение true, то попытка выполнить считывание из файла приведет к попытке.

В следующем фрагменте кода выполняется подсчет числа строк в текстовом файле.

AssignFile (F, ‘C:\delo.txt’);

Reset (F);

I:=0;

While not Eof (F) do

Begin

Readln (F, S);

Inc (i);

End;

CloseFile (F);

В представленном фрагменте прописано создание файла, открытие файла для чтения, в цикле от 0 до конца файла его чтение в переменную S, и выдача значения i, т. е. значения количества строк в текстовом файле.

Не нашли, что искали? Воспользуйтесь поиском: