Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-12-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.393
Poder: 13
duilioisola Va camino a la famaduilioisola Va camino a la fama
Directivas de compilación

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.
Responder Con Cita
  #2  
Antiguo 01-12-2011
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.121
Poder: 10
roman Tiene un aura espectacularroman Tiene un aura espectacular
Si vas a las opciones del proyecto, en la ficha Directories/Conditionals, hay un cuadro de texto "Conditional defines" en donde puedes especificar símbolos globales. Es decir, que en lugar de escribir {$define debug} en tu DPR, escribes debug en dicho cuadro de texto.

// Saludos
Responder Con Cita
  #3  
Antiguo 01-12-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.393
Poder: 13
duilioisola Va camino a la famaduilioisola Va camino a la fama
Gracias! Funcionó!
Responder Con Cita
  #4  
Antiguo 02-12-2011
LoPiTaL LoPiTaL is offline
Miembro
 
Registrado: abr 2009
Posts: 168
Poder: 9
LoPiTaL Va por buen camino
Recuerda que hay ciertas directivas de compilación predefinidas, que van cambiando en función de la "Build Configuration" que estés compilando en cada momento. Por ejemplo, para las dos que vienen de "casa":
- Debug define la directiva "DEBUG" (en mayúsculas y sin comillas), y NO define la directiva "RELEASE".
- Release define la directiva "RELEASE" (mayus y sin comillas), y NO define la directiva "DEBUG".

Además, puedes añadir las directivas que necesites para cada una de las configuraciones (e incluso añadir configuraciones con directivas diferentes), así puedes cambiar rápidamente todas las directivas de compilación, sin más que cambiar de configuración.

Un saludo,
LoPiTaL
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Directivas compilación {$IFDEF...}..{$ELSE}.. Sergio J. Varios 7 31-03-2011 09:33:25
directivas de grupo gri Redes 0 27-01-2011 10:00:33
Directivas de compilación Livey Varios 0 21-09-2010 23:03:51
Fecha de compilacion jafera Varios 18 30-08-2010 17:28:16
¿Directivas compilacion? drykea Varios 1 03-05-2007 14:51:15


La franja horaria es GMT +2. Ahora son las 18:46:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi