Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Wav файл внутри exe-файла
   Категория: Файловая система
  BDE. Создание алиасов
   Категория: Базы данных
  Прочитать содержимое папки
   Категория: Файловая система
  Получить список запущенных приложений
   Категория: Приложение
  Подсчитать количество слов в строке
   Категория: Текст и строки
  Форма всегда наверху
   Категория: Компоненты
  Создать индекс для таблицы ABS (Absolute Database)
   Категория: Базы данных

Delphi - Справочник: Then

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Then
1 if Condition then Statement;

2 if Condition then Statement else Statement;
Ключевое слово (Unit )
Часть оператора if, начинает истинное предложение, выполняемое в случае истинн
Описание:
Ключевое слово Then является частью условного оператора If. Оно используется для начала раздела кода, который выполняется, если условие (condition) истинно.

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

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

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

Во всех случаях, когда Statement больше одной инструкции, оно должно заключаться в блок begin/end.
Пример кода: Иллюстрация различных использований предложения 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
Примечание:
Просто сделать ошибку, но Delphi настаивает не ставить ';' после инструкции then, если дальше следует инструкция else.

  << Вернуться