Определяет символ директивы компилятора, который используется IfDef
unit
{$Define Symbol}
Описание
Директива компилятора $Define определяет Symbol. Таким образом делая символ включённым (On).
Когда символ включён (On), $IfDef компилирует условный код, а $IfNDef нет.
Когда символ выключен (Off), $IfNDef компилирует условный код, и $IfDef нет.
Delphi обеспечивает некоторые предопределенные символы, типа Console, который включен (On) для консольлного приложения и выключен (Off) GUI приложения (с графическим интерфейсом пользователя).
$Define очень полезен при разработке кода, позволения при испытании быть откомпилированным различным разделам.
Похожие команды
$Else Начинает дополнительный раздел IfDef или IfNDef
$IfDef Выполняет код, если условный символ был определен
$IfNDef Выполняет код, если условный символ не был определен
$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;