Delphi отладка

[VadEr]

Привет!

Как выборочно компилировать один код в режиме отладки, а другой код в релизе?

Пробовал так, но каждый раз приходится в ручную {$DEFINE DEBUG} убирать для релиза:

  {$DEFINE DEBUG}
  {$IFDEF DEBUG}
    ...
  {$ELSE}
    ...
  {$IFEND}

[Serge_Bliznykov]

может, конечно, это я такой непонятливый, но я совсем не понял, что у Вас не получается...

если переменная объявлена ($DEFINE), то там, где Вы используете условную компиляцию, компилируется код в веточке $IFDEF

Если нужно, чтобы этот код не компилировался то достаточно комментировать $DEFINE Debug - и скомилировать проект..

Что не так?

p.s. мне кажется, что такие дефайны удобно вынести в отдельный файл, например,
MyDef.inc
и во всех модулях, где нужна условная компиляция прописать
{$I MyDef.inc}

[JTG]

Обновить Delphi. В 2007 и выше есть менеджер конфигураций, при сборке debug-версии сам добавляет строку в conditional defines.

В качестве костыля на старых версиях можно проверять опции компилятора, например

 {$IFOPT D+}
    ShowMessage('Debug info on');
 {$ELSE}
    ShowMessage('Debug info off');
 {$ENDIF}

[VadEr]

Да, проблема как раз во том и была, что ($DEFINE) надо в каждом модуле писать, глобально не видит. Поэтому, есть вероятность, что его закоментить где нибудь можно забыть.

Вариант Serge_Bliznykov-а вроде бы решает эту проблему, т.к. комментить теперь только надо в одном месте, но появляется другая. => Код выносится в другой модуль, и понимание логики процедуры "для программиста" затрудняется.

Костыль предложенный JTG насколько я понял близок к VStuduo-скому, но не понятно: что такое "D+" и где и как его меняют? Меняется ли эта опция в настройках среды или так же вручную прописать надо где-то {$D+}, а потом видимо "D-"?

p.s. IDE: delphi7

[JTG]

глобально не видит

DEBUG указывается в опциях компилятора в поле conditional defines и во всём проекте этот дефайн видно.

$D+ это галочка "debug information" там же.

[Stilet]

Как вариант:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  function  IsDebuggerPresent:boolean; external 'kernel32.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 if IsDebuggerPresent then ShowMessage('Меня отлаживают') else ShowMessage('Я свободен словно птица в небесах');
end;

end.

P.S. правда это не к компиляции относится, но иногда помогает.

[veniside]

> Код выносится в другой модуль, и понимание логики процедуры "для программиста" затрудняется.

в отдельный файл выносится ровно одна строчка:

{$DEFINE DEBUG }

всё. Что тут кому затрудняет понимание?