Справочник функций и процедур Delphi: Then

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

Then
Ключевое слово
Часть оператора if, начинает истинное предложение, выполняемое в случае истинности условия unit
  
1 if Condition then Statement;

2 if Condition then Statement else Statement;

Delphi Sources

Описание
Ключевое слово Then является частью условного оператора If. Оно используется для начала раздела кода, который выполняется, если условие (condition) истинно.

Есть две формы оператора If - один с Else, другой без.

If работает следующим образом:

Если условие истинно, то выполняется первая инструкция. Если ложно, то эта инструкция обходится. Если есть пункт Else, то он выполняется он.

Во всех случаях, когда Statement больше одной инструкции, оно должно заключаться в блок begin/end.
Примечания
Просто сделать ошибку, но Delphi настаивает не ставить ';' после инструкции then, если дальше следует инструкция else.
Похожие команды
Else  Начинает ложный раздел if, case и try операторов

End  Ключевое слово, которое заканчивает операторные блоки

If  Начинает условное выражение, чтобы решить, что делать далее

 
Пример кода : Иллюстрация различных использований предложения then
begin
  // Иллюстрация простого условного оператора if, который выполняет истину
  if True Then ShowMessage('True!');

  // Иллюстрация того же самого, но с множественными действиями
  if 1 = 1 Then
  begin
    ShowMessage('Мы теперь имеем');
    ShowMessage('множественные строки');
  end;

  // Иллюстрация простого условного оператора if, который терпит неудачу
  if 1 = 2 Then ShowMessage('1 = 2');

  // Иллюстрация инструкции if then else
  // Обратите внимание на недостаток ';' после предложения 'then'
  if False
  Then ShowMessage('True')
  else ShowMessage('False');

  // Вложенные условные операторы - Delphi заметно управляют ассоциациями
  if true Then
    if false Then
      ShowMessage('Inner then satisfied')
    else
      ShowMessage('Inner else satisfied')
  else
    ShowMessage('Outer else satisfied')
end;
True!
Мы теперь имеем
множественные строки
False
Inner else satisfied
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте