Директива компілятора 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;