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

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

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

var
  text : string;

begin
  // Устанавливаем наш код в режим тестирования
  {$Define TESTMODE}

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

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

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

  // Показ значения текста, если мы находимся в режиме тестирования
  {$IfDef TESTMODE}
  ShowMessage(text);
  {$Else}
  ShowMessage('Сейчас выходим из режима тестирования');
  {$EndIf}
end;