Практическая работа № 7 "Разработка проекта Словарь"
1. Постановка задачи
Разработать программу, с помощью которой пользователь мог бы составить словарь новых терминов. При необходимости в этот словарь можно вносить изменения, дополнять или сокращать его. При выборе термина на контрольной панели появляется его номер и общее количество слов в словаре.
Рисунок 10
Пояснения: новыми в этой программе являются комбинированный список ComboBox на странице палитры компонентов Standard, объединяющий строку ввода c компонентом ListBox, выключатель CheckBox на странице палитры компонентов Standard, а также функция MessageDlg.
2. План разработки программы
1. Открыть новый проект.
Рисунок 11
2. Разместить в форме компоненты в соответствии с рисунком 11.
3. Сохранить проект под именем, например, Pr4.pas и Pr4.dpr
4. Запустить программу, затем закрыть окно проекта кнопкой Выход.
5. Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
BitBtn1 |
Properties |
Caption |
&Выход |
|
|
Kind |
bkClose |
ComboBox1 |
Propeties |
Text |
Вставить пробел |
|
|
Items |
Дважды щелкнув мышью, открыть String list editor. Ввести несколько терминов, сохранить их в файле glostext.txt, предварительно убедившись, что выбрана нужная директория (см.практическую работу №4 п.7). |
6. Запустить программу, щелкнуть на стрелке компонента ComboBox1, выбрать из открывшегося списка любой термин, а затем убедиться, что текст, набираемый в строке ввода, в список не вносится. После этого закрыть проект кнопкой Выход.
7. Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
Button1 |
Propeties |
Caption |
Добавить |
|
Events |
OnClick |
ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text :=‘’;
Последний оператор очищает строку ввода после того, как текст из нее попадает в список. |
8. Запустить программу и убедиться, что набранные в строке ввода слова после нажатия кнопки Добавить добавляются в список ComboBox1.
9. Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
Button2 |
Propeties |
Caption |
Удалить |
|
Events |
OnClick |
if MessageDlg('Вы действительно хотите удалить запись?', mtWarning, [mbYes, mbNo], 0) = mrYes then ComboBox1.Items.Delete(ComboBox1.ItemIndex); |
Пояснения.
Данное условие означает, что при нажатии кнопки Удалить появится диалоговое окно с вопросом 'Вы действительно хотите удалить запись?' с двумя кнопками Yes и No. Только при нажатии кнопки Yes предварительно выбранный термин будет удален из списка.
MessageDlg является функцией с четырьмя аргументами:
1. Сообщение, которое нужно отобразить, в одинарных кавычках.
2. Тип диалогового окна - константы: mtWarning, mtError, mtInformation, mtConformation, определяющие специальную пиктограмму и заголовок диалогового окна.
3. Список констант в квадратных скобках, определяющих присутствующие в окне кнопки. Возможные значения - mbYes, mbNo, mbCancel, mbHelp.
4. Число, с которым ассоциирована тема справки. Оно отлично от нуля, если в окне присутствует кнопка mbHelp, а программа имеет связанный с ней файл справки Windows.
Функция MessageDlg возвращает константу, определяющую нажатую пользователем кнопку.
10. Если запустить программу, добавить в список и (или) удалить несколько строк, закрыть ее, а затем снова запустить, заметим, что внесенные изменения не сохранились. Это связано с тем, что в ComboBox загружается первоначальный список.