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
$IfOpt
Деректива компилятора
Проверяет состояние директивы компилятора unit
  
1 {$IfOpt Switch-}
...
{$Else}
...
{$EndIf}
2 {$IfOpt Switch+}
...
{$Else}
...
{$EndIf}
Описание
Директива компилятора $IfOpt является мета директивой, она проверяет на +(вкл) или -(выкл) состояние отдельной символьной директивы компилятора.
Например:

{$IfOpt H+}
ShowMessage('Longstrings are set on');
{$EndIf}

Это полезно для отчёта по установке директив при запуске программы, когда проводится тестирование.
Примечания
$IfOpt может использоваться в вашем коде множество раз.
Похожие команды
$Define  Определяет символ директивы компилятора, который используется IfDef

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

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

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

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

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

 
Пример кода : Показ различных заданных по умолчанию настроек директив
begin
  // Показ различных заданных по умолчанию настроек директив
  {$IfOpt A+}
    ShowMessage('Align - On');
  {$Else}
    ShowMessage('Align - Off');
  {$EndIf}

  {$IfOpt B+}
    ShowMessage('BoolEval - On');
  {$Else}
    ShowMessage('BoolEval - Off');
  {$EndIf}

  {$IfOpt H+}
    ShowMessage('LongStrings - On');
  {$Else}
    ShowMessage('LongStrings - Off');
  {$EndIf}
end;

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

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

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