Использование условных операторов в Object Pascal. Семенов Н.М. - 9 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

9
В громоздких операторах case, в которых каждая ветвь представляет собой
большой блок со сложным кодом, гораздо труднее разобраться, поскольку назначение
ветвей этого условного переключателя - оператора case - перестаёт быть очевидным.
Нельзя использовать значения типа string в качестве элементов списка условий
(меток варианта). Величины в списке условий (метки варианта) должны быть
порядкового типа, это означает, что они должны быть эквивалентны целым числам или
прямо отображаться на какое - либо подмножество целых чисел.
4 Программа CASE1
Эта программа в своём первом варианте иллюстрирует концепцию
использования оператора case. Этот пример познакомит Вас с некоторыми
стандартными компонентами Delphi и покажет, как соединить компоненты между
собой, заставляя их работать совместно.
Идея представленной здесь программы - еженедельника CASE1 проста:
обеспечить возможность ввода элементов, месяц за месяцем, в виде списка. Программа
может служить отправной
точкой для построения таких разнообразных систем, как
планировщик работ, дневник расходов, календарь встреч, планировщик бюджета и т. п.
Главная форма программы CASE1 показана на рис. 2.
Рис. 2. Главная форма программы CASE1.
4.1 Создание программы CASE1
Чтобы создать программу CASE1, надо проделать следующие шаги:
1. Создайте новый проект с пустой главной формой.
2. Сохраните файл вновь созданной формы в каталоге, предназначенном для
проекта CASE1, под именем MAIN.PAS и файл проекта - под именем CASE1.DPR.
(Для этого в меню Файл выберите опции «Сохранить как…», «Сохранить проект
как…»).
3. Щёлкните кнопкой мыши в окне Дизайнера форм, чтобы выбрать форму
целиком. При этом в комбо - окне списка компонентов Инспектора объектов выберите
Form1.
4. Измените свойство
Caption формы на CASE1 Yearbook, и свойство Name - на
FormMain.
5. Поместите в форму компонент Notebook (блокнот). Для этого сначала
выберите страницу палитры Win 3.1, после чего щёлкните кнопкой мыши на

Страницы