delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Каталог статей

Категории раздела

Ваши уроки [5]
Выкладывайте ваши уроки
по Delphi [6]
Статьи по Delphi
по Visual Basic [0]
Статьи по Visual Basic
по SEO [1]
Уроки по SEO (Раскрутка сайта)
по Photoshop [1]
Уроки по фотошопу
по C++ [1]
уроки по C++
по HTML [1]
Уроки HTML
по CSS [1]
Уроки по CSS
Arduino [2]

Наш опрос

Как вы попали на сайт ???
Всего ответов: 483

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Статьи » по Delphi

Структура ветвления (оператор условий) if...then...else
Всем привет !!!
В этой статье я хочу немного рассказать о структуре ветвления (операторе) 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 либо жмем кнопочку запустить.

Официальный сайт статьи www.delphi-lubitel.ucoz.ru
Автор Toha
При копировании статьи обязательно ссылка на официальный сайт.

Чтобы скачать нажмите "Перейти" "Пропустить рекламу"
Категория: по Delphi | Добавил: Toha (15.03.2011)
Просмотров: 3992 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432