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
$Define
Деректива компилятора
Определяет символ директивы компилятора, который используется IfDef unit
  {$Define Symbol}
Описание
Директива компилятора $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;

Мы испытательном режиме
 
Здесь нужно купить рекламу за 2 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

форум программистов

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