Курсовая работа: Программирование на языке высокого уровня 3
end;
Тип записи disk является представлением информации: stoim - стоимость DVD - фильма, name название DVD – фильма, reg – фамилия режиссера, cincom – название кинокомпании, year – год выхода фильма на DVD.
tdvd = array [1..300] of disk
Тип tdvd является одномерным массивом, содержащим 300 элементов типа disk, т.е. этот массив содержит информацию о 300ах DVD - фильмах, полученную в результате заполнения файла с информацией.
recordfile = file of disk
Типизированный файл «recordfile » содержит записи типа disk , т.е. содержит исходную информацию о каждом DVD - фильме .
Описание файлов
При работе программа использует постоянный файл с информацией
‘ db_ disk. db’ – файл с исходной информацией.
Структурные элементы программы
Таблица 1. Глобальные переменные.
| Идентификатор | Тип | Назначение |
| n | integer | Переменная – счётчик |
| m | integer | Переменная – счётчик |
| dvdfile | string | Название файла |
| f | recordfile | Файл с записями |
| g | recordfile | Файл с записями |
| Form1 | Tform1 | Идентификатор формы |
| but | integer | Определяет нажатую кнопку при появлении сообщения |
| h | HWND | Дескриптор окна |
| horizon | integer | Номер строки в таблице |
| k | integer | Проверка существования телефона |
Таблица 2. Константа.
| Идентификатор | Значение | Назначение |
| detect | ‘savedvd\’ | Путь к файлам необходимым для работы программы |
Таблица 3. Глобальные переменные модуля Unit2.рas.
| Идентификатор | Тип | Назначение |
| Form2 | Tform2 | Идентификатор формы |
Таблица 4. Глобальные переменные модуля unit search.pas
| Идентификатор | Тип | Назначение |
| Form4 | Tform4 | Идентификатор формы |
| dvdfile | string | Название файла |
| n | integer | Переменная – счётчик |
| f | recordfile | Файл с записями |
| g | recordfile | Файл с записями |
Таблица 5. Глобальные переменные модуляunit Input.pas
| Идентификатор | Тип | Назначение |
| Form3 | Tform3 | Идентификатор формы |
| dvdfile | string | Название файла |
| n | integer | Переменная – счётчик |
| k | integer | Переменная – счётчик |
| f | recordfile | Файл с записями |
| g | recordfile | Файл с записями |
Описание процедур
Модульkursovik.pas
procedure tform1.clearlist;
Данная процедура очищает таблицу вывода информации.
procedure tform1.vivod (dvdfile:string);
Данная процедура осуществляет вывод данных записанных в файл.
Параметр dvdfile – директория файла.
Алгоритм:
Привязываем к файловой переменной “ f ” переменную dvdfile и открываем на чтение. Если файл обнаружен, то в цикле, до тех пор, пока не достигнут конец файла, запускаем счётчик и выводим в ячейки таблицы данные из файла. Если счётчик равен нулю, следовательно, файл пустой, запускается процедура clearlist .
В случае не обнаружения файла, он создаётся в необходимой директории.
Таблица 6. Локальные переменные.
| Идентификатор | Тип | Назначение |
| s | disk | Запись |
| f1 | recordfile | Файл с записями |
| count | integer | Номер по списку |
procedure tform1.deletef (horizon:integer);
Данная процедура осуществляет удаление записи из фала.
Алгоритм:
В параметр d передаётся введённая модель телефона.