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
$UnDef
Ключевое слово
Выключает символ директивы компилятора - используемый IfDef unit
  {$UnDef Symbol}
Описание
$UnDef директива компилятора удаляет определение символа(Symbol). Делая так, что символ становится Выключеным(Off).

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

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

Delphi обеспечивает некоторые предопределенные символы, такие как Console, который включен для консольных приложений и выключен для GUI приложений.
Похожие команды
$Define  Определяет символ директивы компилятора, который используется IfDef

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

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

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

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

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

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

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

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

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

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

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

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


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