Директива компилятора Delphi $Define – определяет символ директивы компилятора, который используется IfDef

Директива $Define компилятора Delphi определяет символ директивы компилятора, который используется IfDef.

Директива компилятора $Define: Установка и использование символа испытательного режима

var
  text : string;

begin
  // Установка нашего кода в испытательный режим
  {$Define TESTMODE}

  text := 'Мы в испытательном режиме';

  // Показ значения текста, если мы в испытательном режиме
  {$IfDef TESTMODE}
  ShowMessage('text = '+text);
  {$EndIf}

  // Выключение испытательного режима
  {$UnDef TESTMODE}

  text := 'Мы вне испытательного режима';

  // Показ значения текста, если мы в испытательном режиме
  {$IfDef TESTMODE}
  ShowMessage('text = '+text);
  {$EndIf}
end;