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
$IfDef
Деректива компилятора
Выполняет код, если условный символ был определен unit
  
{$IfDef Symbol}
... Код выполняемый если Symbol определён ...
{$Else}
... Код выполняемый если Symbol не определён ...
{$EndIf}
Описание
Директива компилятора $IfDef начинает раздел условно компилируемой программы. Символы бывают двух типов. Предопределенные в Delphi - такие как Console, при выполнении консольного приложения. И определенные директивой компилятора $Define. $IfDef очень полезна при разработке кода, позволяя при тестировании компилироваться различным разделам.
Похожие команды
$Define  Определяет символ директивы компилятора, который используется IfDef

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

$EndIf  Заканчивает условную компиляцию кода

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

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

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

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

begin
  // Устанавливаем наш код в режим тестирования
  {$Define TESTMODE}

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

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

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

  // Показ значения текста, если мы находимся в режиме тестирования
  {$IfDef TESTMODE}
  ShowMessage(text);
  {$Else}
  ShowMessage('Сейчас выходим из режима тестирования');
  {$EndIf}
end;
Мы в режиме тестирования
Сейчас выходим из режима тестирования
 
форум программистов

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