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;

Мы в испытательном режиме
Вне испытательного режима
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия