| Всем привет !!! В этой статье я хочу немного рассказать о структуре ветвления (операторе) if...then...else
if - если then - то else - иначе
Например: Кидаем на форму компонент Button со вкладки Standard Кликаем по Button два раза тем самым создаем слушатель событий onClick И между begin и end прописываем:
if form1.Caption = 'Proga' then close else ShowMessage ('вот так работает оператор');
Должно получиться так:
procedure TForm1.Button1Click(Sender: TObject); begin if form1.Caption = 'Proga' then close else ShowMessage ('вот так работает оператор'); end;
В выше указанном исходном коде действие происходит так: Если form1.Caption = 'Proga' то идем по коду дальше выходим из программы если же form1.Caption не равно 'Proga' то выводим сообщение на экран
Теперь запускаем программу нажатием клавиши F9 либо жмем кнопочку запустить.
Автор Toha При копировании статьи обязательно ссылка на официальный сайт.
Чтобы скачать нажмите "Перейти" "Пропустить рекламу" | 
