Создайте ехе-файл программы.
Закройте Delphi, запустите созданную программу и выполните вычисления для различных входных данных.
Продемонстрируйте созданную форму преподавателю. Закончите работу.
Задания:
1. Добавьте к контекстному меню команду «Выход» и запрограммируйте ее.
2. Создайте и запрограммируйте еще одно контекстное меню, содержащее команды «Убрать все флажки», «Включить все флажки», «Включить инверсивно». Такое меню должно появляться после щелчка правой клавишей мыши, установив курсор в любой точке панели с флажками. Не забудьте «привязать» это меню (PopupMenu2) к панели с флажками (см. пункт 19).
Рис. 1 Рис. 2
Рис. 3 Рис. 4 Рис.5
ЛАБОРАТОРНАЯ РАБОТА № 9.
РАБОТА С ФАЙЛАМИ ЗАПИСЕЙ В OBJECT PASCAL. СОЗДАНИЕ ОКОН И СТАНДАРТНЫХ ДИАЛОГОВ. КОМПОНЕНТЫ ДОСТУПА К БАЗАМ ДАННЫХ.
Новые объекты: многостраничный блокнот, комбинированный список. Создание новых окон и стандартных диалогов. Работа с файлами записей в Object Pascal.
Цель работы. Создать программу для работы с базой данных - телефонным справочником, сформированным в виде файла записей. В каждой записи определены поля: фамилия и имя (строки по 20 символов каждая), адрес и номер телефона (строки длиной 100 и 15 символов соответственно). Необходимо реализовать следующие операции: создание и удаление записи, сохранение и считывание файла записей с диска, редактирование, поиск и сортировку данных в алфавитном порядке, просмотр записей и навигацию по базе.
Ознакомиться с новыми объектами: многостраничным блокнотом (PageControl), страницей блокнота (TabSheet), комбинированным списком (ComboBox), диалоговым окном (AboutBox), стандартными диалогами открытия и сохранение файлов (OpenDialog и Save Dialog).
Теоретические сведения
Многостраничный блокнот (PageControl) находится на форме особого вида Tabbed Pages (объект PagesDlg, заголовок "Tabbed Notebook Dialog"). Форму создают командами File = > New...=> Закладка Forms => Tabbed Pages => Ok. После её создания ненужную форму "Forml" в случае необходимости можно удалить с помощью кнопки (Remove unit) окна менеджера проекта (Project Manager). Вызов окна менеджера проекта осуществляется командами View => Project Manager. В данной работе активизацию объектов PageControl и PagesDIg можно осуществлять с помощью инспектора объектов. Свойства объекта PagesDIg совпадают со свойствами обычной формы Form. Рассмотрим новые свойства блокнота PageControl:
| Свойство | Описание свойства | Примеры значений |
| ActivePage | Имя активной страницы | TabSheet7 |
| MultiLine | Возможность размещать закладки страниц в несколько строк | True (закладки в несколько строк), False (закладки в одну строку) |
Свойства отдельной страницы блокнота (объекта TabSheet) аналогичны описанным в предыдущих разделах.
Объект ComboBox предназначен для создания раскрывающегося списка. Его новые свойства такие:
| Свойство | Описание свойства | Примеры значений |
| DropDownCount | Количество строк в раскрывающемся списке, которые видимы без использования полос прокручивания | |
| Sorted | Сортировка списка по алфавиту | True (список сортируется), False (не сортируется) |
| Style | Стиль оформления и использование списка | csOwnerDrawVariable (заданный программистом), csDropDown (стандартный) |
Стандартные диалоги открытия (объект OpenDialog) и сохранение файлов (объект SaveDialog) - это невидимые на форме объекты, предназначенные для создания стандартных в Windows 9х окон: "Open file" и "Save File as" в момент вызова их из программного кода проекта командой OpenDialog1.Execute или SaveDialog1.Execute. Имя выбранного файла возвращается в программу свойством FileName этих объектов.
Ход работы
