Ver Mensaje Individual
  #2  
Antiguo 06-05-2016
bucanero bucanero is offline
Miembro
 
Registrado: nov 2013
Ubicación: Almería, España
Posts: 208
Reputación: 11
bucanero Va camino a la fama
Hola blaiselaborde

Una forma con la que puedes realizar de forma fácil lo que pretendes es definir un fichero de texto que por ejemplo llames config.inc y donde vas a definir la configuración personalizada para cada proyecto y se guarda en la misma carpeta del proyecto

En este fichero es en donde se define la directiva y su contenido es tan simple como añadir algo así para definir una directiva:

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

Ya en la unit donde vayas a usar las directivas condicionales cargas la configuración añadiendo antes del uses una llamada a la directiva {$i ...}

Código Delphi [-]
uses unitX;

{$i config.inc}

interface

uses ...
  ...
  ...
  ...
end.

y listo para usar las directivas condicionales.

En cuanto a tu código yo lo pondría de la siguiente forma:
para el uses:
Código Delphi [-]
Uses  DMJBS, DMImages, OneWayAppointment, LoginUnit, Common, DataModule, Data, RequestData{$IFNDEF NOTMAIN} ,main{$ENDIF};

Y tu procedimiento también podría quedar así:

Código Delphi [-]
Procedure TForm.acViewAccountExecute(Sender: TObject);
Begin
  Inherited;
{$IFNDEF NOTMAIN}
  If Not dsOutboundList.DataSet.IsEmpty then
    Begin
      FRM_Main.SearchforCust(dbgResults.Cells[4, dbgResults.Row]);
      pRefresh;
    End;
{$ENDIF}
End; // Proc


Un saludo

Última edición por bucanero fecha: 06-05-2016 a las 17:47:50.
Responder Con Cita