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

UptoLike

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

5
Хотя операторы if могут быть вложены любое число раз, лучше сводить их
вложенность до минимума, поскольку даже при аккуратно проставленных отступах
бывает нелегко понять, какому именно оператору if принадлежат различные части then
и else.
Поэтому возьмите за правило никогда не использовать вложенность на более
чем один уровень. В сложных случаях, требующих многократных вложений, Вы всегда
можете воспользоваться процедурами и функциями.
2 Использование оператора if
Программа BUTTON1 иллюстрирует использование оператора if. Рис. 1
показывает, как должен выглядеть экран этой программы.
Рис. 1. Программа - пример BUTTON1.
2.1 Интерактивное создание программы BUTTON1
Для создания этой программы выполните следующие действия:
1. Создайте новый проект с пустой формой.
2. Сохраните модуль формы проекта под именем BUTTON1F.PAS и файл
проекта - под именем BUTTON1.DPR.
3. Щёлкните кнопкой мыши
на странице Additional палитры компонентов.
4. Поместите в форму вблизи её нижнего края два компонента BitBtn (битовые
кнопки). Delphi назовёт их BitBtn1 и BitBtn2. Измените их свойства Name на BtnToggle
и BtnClose соответственно.
5. Измените свойство Kind компонента BtnToggle на bkOK, а его свойство
Caption - на &Hide.
6. У компонента BtnClose измените свойство Kind на bkCancel и свойство
Caption на &Close.
7. Поместите в форму компонент Label страницы Standard палитры
компонентов,
расположив её над битовыми кнопками. Этот компонент автоматически
получит имя Label1.
8. Измените свойство Name компонента Label1 на LblHint.
9. Измените свойство AutoSize компонента LblHint на False, а свойство
Alignment - на taCenter.
10. Разместите LblHint в форме таким образом, чтобы она заполнила как можно
больше места над кнопками.
11. Измените у LblHint (для этого щёлкните на метке, расположенной на форме)
свойство Caption на приведённый
ниже текст подсказки для пользователя: