Справочник функций и процедур Delphi: $IfOpt
  Навигация по первой букве:

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

$IfOpt
Деректива компилятора		 Проверяет состояние директивы компилятора unit
  
1 {$IfOpt Switch-}
...
{$Else}
...
{$EndIf}
2 {$IfOpt Switch+}
...
{$Else}
...
{$EndIf}

Delphi Sources

Описание
Директива компилятора $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
 


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

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker
 

Айболит (remote control)

ListBox Drag & Drop

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

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

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

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

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

Группа ВКонтакте