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.