[[duilioisola]]

Hola a todos!

Quisiera definir una directiva de compilación que se extienda a través de todas las unidades.
La directiva de compilación $DEFINE solo tiene efecto dentro de la unidad.

En el dpr tengo lo siguiente:

Código Delphi [-]
{$DEFINE Debug}

program Mi_Super_Programa;

uses
  {$IFDEF Debug}
  MemCheck in '..\Utilidades\MemCheck.pas',
  ExceptLog in '..\Utilidades\ExceptLog.pas',
  {$ENDIF}
   ...
begin
  {$IFDEF Debug}
  MemChk;
  {$ENDIF}

  Application.Initialize;

  Application.CreateForm(TDMPrincipal, DMPrincipal);
  Application.CreateForm(TFMPrincipal, FMMPrincipal);

  Application.Run;
end.

luego en el Formulario principal:

Código Delphi [-]
procedure TFMPrincipal.FormDestroy(Sender: TObject);
begin
   {$IFDEF Debug}
   Log.SaveToFile('debug.log');
   {$ENDIF}
   ...
end;

Pero el formulario principal no lo tiene en cuenta la directiva, porque está difinida en otra unidad.