Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  

форум программистов

Основы Delphi
$EndIf
Деректива компилятора
Заканчивает условную компиляцию кода unit
  
{$IfDef Symbol}
 ... Code to run when the symbol is defined ...
{$Else}
 ... Code to run when the symbol is not defined ...
{$EndIf}
Описание
Директива компилятора $EndIf заканчивает раздел условно компилируемой программы.

См. $IfDef и $IfNDef.
Похожие команды
$Define  Определяет символ директивы компилятора, который используется IfDef

$Else  Начинает дополнительный раздел IfDef или IfNDef

$IfDef  Выполняет код, если условный символ был определен

$IfNDef  Выполняет код, если условный символ не был определен

$IfOpt  Проверяет состояние директивы компилятора

$UnDef  Выключает символ директивы компилятора - используемый IfDef

 
Пример кода : Установка и использование символа определяемого пользователем
var
  text : string;

begin
  // Установка нашего кода в испытательный режим
  {$Define TESTMODE}

  text := 'Мы в испытательном режиме';

  // Отображение значения текста, если мы находимся в испытательном режиме
  {$IfDef TESTMODE}
  ShowMessage('text = '+text);
  {$EndIf}

  // Выключение испытательного режима
  {$UnDef TESTMODE}

  // Отображение значения текста, если мы находимся в испытательном режиме
  {$IfDef TESTMODE}
  ShowMessage('text = '+text);
  {$Else}
  ShowMessage('Вне испытательного режима');
  {$EndIf}
end;

Мы в испытательном режиме
Вне испытательного режима
 
Здесь нужно купить рекламу за 2 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

форум программистов

© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия