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