Курсовая работа: База данных DVD–фильмов

f

recordfile

Файл с записями

g

recordfile

Файл с записями

Описание процедур

Модуль kursovik.pas

procedure tform1.clearlist;

Данная процедура очищает таблицу вывода информации.

procedure tform1.vivod (dvdfile:string);

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

Алгоритм:

1. Привязываем к файловой переменной “f” переменную dvdfile и открываем на чтение.

2. Если файл обнаружен, то в цикле, до тех пор, пока не достигнут конец файла, запускаем счётчик и выводим в ячейки таблицы данные из файла. Если счётчик равен нулю, следовательно, файл пустой, запускается процедура clearlist.

3. В случае не обнаружения файла, он создаётся в необходимой директории.

Таблица 5. Локальные переменные.

Идентификатор	Тип	Назначение
s	disk	Запись
f1	recordfile	Файл с записями
count	integer	Номер по списку