Delphi для начинающих – Урок 7 – Условия. Оператор IF

A

AngelOfLove

Original poster
Условия в языках программирования позволяют создавать сложные нелинейные алгоритмы, о которых и пойдет речь в этом уроке.Условия в программном коде Delphi/Pascal обозначаются специальными условными операторами if и case, без которых сейчас не обходится практически не одна программа. Условные операторы позволяют выполнять какие-либо действия при определенных условиях. Разберем непосредственно конструкцию простого условия:

1
if {условия} then {действие, выполняющееся при условии};
Как видите, сначала мы ставим оператор if , затем указывам условие или условия (их может быть несколько). Затем ставим оператор then и указываем действие, которое выполнится при указанном условии. Такая конструкция позволяет создавать несколько условий, однако позволяет создать только одно действие, выполняющееся при этом условии. После единственного действия мы как обычно ставим «;«.

Для того, чтобы задать несколько действий, мы можем использовать другую конструкцию:

1 if {условия} then begin
2
3 {действие, выполняющееся при условии};
4
5 {действие, выполняющееся при условии};
6
7 end;

Стоит учесть, что «;» ставиться только в конце оператора, т.к. служебные слова then и else входят в состав оператора if, и перед ним точка не ставиться.

Кроме того, сами условия, при которых выполняются действия, могут включать в себя несколько простых условий, каждое из которых заключается в скобки (это мы разберем чуть далее).

Таким образом, между вложенными в условие операторами begin и end мы можем задавать несколько действий. Каждое действие оканчивается «;». После end в условии тоже ставится «;».

Существует также более сложная конструкция условий, которая позволяет задавать действия для такого случая, когда условия оператора if не выполняются:

1 if {условия} then begin
2
3 {действие, выполняющееся при условии};
4
5 {действие, выполняющееся при условии};
6
7 end else begin
8
9 {действие, которое выполняется в противном случае};
10
11 {действие, которое выполняется в противном случае};
12
13 end;

Также, если в условной конструкции нам нужно выполнить только одно действие, то справедлива следующая конструкция:

1 if {условия} then {действие, выполняющееся при условии} else
2
3 {действие, которое выполняется в противном случае};
Теперь разберемся, как же задавать нам сами условия. Условия, как я уже говорил могут быть сложными, т.е. состоять из нескольких подусловий. Примеры условий:

1 if a>b then {если a численно больше b (только для численных переменных)};
2
3 if (a>b)or(c>d) then {если a численно больше b или c>d (только для численных переменных)};
4
5 if (a>b) then {если a численно больше b (только для численных переменных)};
6
7 if not(a>b) then {если не выполняется условие "a численно больше b" (только для численных переменных)};
8
9 if (a<>b) then {если a не равняется b (только для численных переменных)};
10
11 if str1=str2 then {если строка1 посимвольно равна строке2};
12
13 if str1<>str2 then {если не выполняется условие "строка1 посимвольно равна строке2"};
14
15 if str1<>str2 then {если не выполняется условие "строка1 посимвольно равна строке2"};
16
17 if str1='test' then {если строка1 посимвольно равна строке "test"};

Надеюсь, примеров я привел достаточно, чтобы показать вам самые распространенные условия. Условия также могут включать в себя и больше подусловий. Приведу пример готовой условной конструкций:

1 if (a=b)and(c<0) then begin
2
3 if c+1>d-sin(e) then showmessage('test!') else c:=c+1;
4
5 h:=h+20;
6
7 end else x:=0;

В следующем уроке я расскажу вам об условном операторе case, который дает возможность создавать большое количество пар «условие-действие».
 
Название темы
Автор Заголовок Раздел Ответы Дата
A Delphi для начинающих. Урок 11. Процедуры и функции С/C++ 0
A Delphi для начинающих. Урок 10. Циклы. Работа с массивами С/C++ 0
A Delphi для начинающих – Урок 9 – Массивы С/C++ 0
A Delphi для начинающих – Урок 8 – Условия. Оператор Case С/C++ 0
A Delphi для начинающих – Урок 6 – Пишем свой калькулятор С/C++ 0
A Delphi для начинающих – Урок 5 – Работаем с компонентами С/C++ 0
A Delphi для начинающих – Урок 4 – Работа с переменными С/C++ 0
A Delphi для начинающих – Урок 3 – Создание переменных С/C++ 0
A Delphi для начинающих – Урок 2 — События С/C++ 0
A Delphi для начинающих — Урок 1 — Среда разработки Delphi С/C++ 0
C Реверс-инжирниринг бота на Delphi, есть проблемы Вопросы и интересы 0
M [Delphi] Работа VKAPI, на примере бота С/C++ 3
T Пишем WinLocker на Delphi С/C++ 0
D Нужна помощь по Delphi! ЗАПЛАЧУ! Другие ЯП 1
VAVAN Продам исход стиллера (ЯП Delphi) Продажа софта 1
A Потоки в Delphi. TThread С/C++ 0
A Delphi. Урок 17. Типы С/C++ 0
A Delphi. Урок 16. Исключительные ситуации С/C++ 0
A Delphi. Урок 15. Математические операции С/C++ 0
A Delphi. Урок 14. Работа со списками строк TStringList или «сложные» типы С/C++ 0
A Delphi. Урок 13. Работа со строками С/C++ 0
A Delphi. Урок 12. Преобразование числа в строку и строки в число С/C++ 0
A Простые шутку в DELPHI С/C++ 5
A Мои старые исходники на Delphi С/C++ 1
A Несколько шпор по Delphi =) С/C++ 3
L Загружаем компьютер другу. Delphi,rad studio Другие ЯП 0
I Country IP Ranges Generator v1.0 [Source][Delphi] Другие ЯП 3
B Помощь [Delphi] Другие ЯП 0
B VK Post Grabber [Source][Delphi] Другие ЯП 0
Admin [delphi] downloader winapi Другие ЯП 0
Support81 Шпион из ЦРУ превратил Telegram в площадку для государственной тайны Новости в сети 0
Support81 SMS для Google и Meta? Перешлём через Намибию, Чечню и швейцарский гараж Новости в сети 0
wrangler65 Katz Stealer: новая опасная малварь для кражи данных с функциями скрытности и модульности Новости в сети 0
wrangler65 Киберпартизаны атакуют: новый бэкдор Vasilek использует Telegram для управления зараженными системами Новости в сети 0
smmgoal Интересно BrownVPN – Ваш надежный VPN для конфиденциальности, безопасности и свободы Ищу работу. Предлагаю свои услуги. 0
Support81 Хватило трёх 0Day, чтобы превратить Versa Concerto в инструмент для захвата систем связи Новости в сети 0
Support81 Семь лет в тени, одна экстрадиция, и всё — финальные титры для админа BlackDB Новости в сети 0
Support81 RTX 5090: Nvidia создала монстра для взлома паролей и скромно назвала его видеокартой Новости в сети 0
Support81 Код, который должен проверять других, сам стал лазейкой для хакеров — что не так с Langflow? Новости в сети 0
Support81 Хакер взломал мессенджер для чиновников и нашёл внутри полный архив их переписок Новости в сети 0
smmgoal Esimbuy.org Откройте для себя пакеты данных Travelsim Ищу работу. Предлагаю свои услуги. 0
Chekon ✅ sms.chekons.com - ⭐ Сайт для получения SMS на реальные номера USA "Non-VoIP, безлим SMS, API" от 0.4$ за номер⭐ Ищу работу. Предлагаю свои услуги. 0
Support81 CouchDB как проходной двор: эксплойты для критической SSH-уязвимости уже гуляют по сети Новости в сети 0
Support81 JUICYJAM: государство завело аккаунт для доносов Новости в сети 0
Support81 VShell? Скорее уж VHell: новый кошмар для Linux от UNC5174 Новости в сети 0
Support81 «PIN-код на лбу безопаснее»: Perplexity AI оказался настоящей находкой для шпиона Новости в сети 0
Support81 Драйвер от Dell, библиотека от ESET: хакеры ToddyCat собрали конструктор для взлома Windows Новости в сети 0
Support81 PIN-код для свободы: новый Android-шпион категорически против своего удаления Новости в сети 0
Support81 Март стал чёрным месяцем для Coinbase: похищено 46 млн долларов Новости в сети 0
Support81 Ошибка на TOR-сайте обернулась концом сразу для трёх группировок Новости в сети 0

Название темы