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

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

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

$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 = Мы в испытательном режиме
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

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