Как можно определить препроцессорной оберткой delphi какой код следует компилить релизную или дебажную версию?

Posted by Chas under Delphi

haruhi

var

   text : string;

 begin

  // Устанавливаем наш код в режим тестирования

   {$Define TESTMODE}
   text := 'Мы в режиме тестирования';
  // Показ значения текста, если мы находимся в режиме тестирования

   {$IfDef TESTMODE}

   ShowMessage(text);

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

   {$UnDef TESTMODE}
  // Показ значения текста, если мы находимся в режиме тестирования

   {$IfDef TESTMODE}

   ShowMessage(text);

   {$Else}

   ShowMessage('Сейчас выходим из режима тестирования');

   {$EndIf}

 end;

тема на форуме

Случайные статьи

• Получить IP-адрес активного подключения
• Рассылка. Выпуск 69.
• Удаление тегов и их содержанимого из переменной
• Групповое обновление полей таблицы в Mysql
• Реализация процедуры поиска max элемента одномерного массива
• Простейшая программа WinAPI на C++
• Пример массовых действий в Delphi
• Как сделать обработчик нажатия комбинации клавиш, например Ctrl + Enter?
• Функция которая ищет сумму цифр числа
• Правильное определение порядка точек в прорисовке тени в 2d-игре