Файлы последовательного доступа.

Функции

Eof (FV) - проверить .маркер "конец файла".

Значение функции равно True, если указатель файла находится сразу за последним компонентом файла, и False в любом другом случае.

FilePos (FV) - определить текущий номер компонента.

Функция возвращает целочисленное значение, равное номеру компонента, на котором установлен в данный момент указатель файла, соответствующего переменной FV. Отсчет номера компонента начинается с нуля.

FileSize (FV) - определить длину файла.

Функция возвращает целочисленное значение, равное количеству компонентов файла, соответствующего переменной FV. Эта функция обычно используется для проверки, содержит файл какую-либо информацию или является пустым. Если FileSize(FV) = 0, то файл пуст, в другом случае файл содержит данные. Размер файла берется из директория.

IOResult (FV) - проверить результат выполнения последней операции ввода-вывода на наличие ошибок.

Если ошибка обнаружена, функция возвращает номер ошибки, если ошибок нет, возвращает значение 0 .

3. Типизированные файлы. Файлы последовательного доступа.

Рассматриваемая версия языка ПАСКАЛЬ предусматривает два способа доступа к компонентам файла: последовательный и произвольный (прямой). Это разделение вызвано наличием устройств с последовательным и прямым доступом. При последовательном способе доступа поиск начинается с начала файла и проверяется по очереди каждый компонент, пока не будет найден нужный. Произвольный способ доступа позволяет обращаться к компоненту по его порядковому номеру в файле. Допускается значительная гибкость при работе с файлами. Например, компоненты последовательно организованного файла могут обрабатываться произвольно, а компоненты произвольного файла - последовательно. Однако с самого начала на основе анализа структуры данных и существующих ограничений следует четко уяснить, какой способ доступа к компонентам необходимо выбрать. От этого во многом зависит успех решения задачи и эффективность работы соответствующей программы.

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

Работа с файлом последовательного доступа предполагает:

Ø создание файла;

Ø обработку файла;

Ø корректировку файла.

Для создания последовательного файла необходимо выполнить следующие шаги:

Ø присвоить файлу имя (процедура Assign);

Ø открыть новый файл (процедура Rewrite);

Ø подготовить информацию для ввода;

Ø записать в файл компоненты (оператор write);

Ø закрыть созданный файл (процедура Close).

Пример:

Организовать последовательный файл с именем BIBL DOC на диске d. Структура записи следующая: порядковый номер книги; автор книги; название книги; индекс книги. Блок организации оформить процедурой с именем Org. Значения полей ввести с экрана. Признак окончания ввода - 9999 в области номера. Сохранить текст процедуры на диске под именем PSozd.

Program DernoSF;

Type

Books = record

Nomer: integer;

Avtor: string[16];

Nazv: string[30];

Index : integer;

end;

Var

BooksFile: file of Books;

RecBooks: Books;

I,Rej : integer;

Procedure Org;

{Выход из процедуры - ответ 9999 для поля Nomer}

begin

Assign( BooksFi1e,’ d: BIBL.DOC’);

Rewrite( BooksFi1e);

with RecBooks do

while True do

begin

write1n ('Введите номер книги’);

read1n (Nomer);

if Nomer = 9999 then

Close( BooksFi1e);

Exit

end;

write1n ('Введите автора книги’);

read1n (Avtor);

write1n ('Введите название книги');

read1n (Nazv);

write1n ('Введите значение индекса);

read(Index);

write(BooksFile, RecBooks)

end;

end;