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

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

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

  Реклама:

 

$Define
Деректива компилятора
Определяет символ директивы компилятора, который используется IfDef unit
  {$Define Symbol}

Google  
 
Описание
Директива компилятора $Define определяет Symbol. Таким образом делая символ включённым (On).

Когда символ включён (On), $IfDef компилирует условный код, а $IfNDef нет.

Когда символ выключен (Off), $IfNDef компилирует условный код, и $IfDef нет.

Delphi обеспечивает некоторые предопределенные символы, типа Console, который включен (On) для консольлного приложения и выключен (Off) GUI приложения (с графическим интерфейсом пользователя).

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook