Discussion :

[agh]

Bonjour,

quel est l'équivalent du #IFDEF du C, et où le définir ?

Merci

[Lung]

$IFDEF , non ?

[FW-S]

Pour définir les instructions de compilation, utilises un fichier .INC (Include) dans lequel tu ajoutes par exemple ce qui suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
{$DEFINE ACTIVEDEVELOPMENT} { Activer / Desactiver le mode developpement. }
 
 
 
 
{$IFDEF ACTIVEDEVELOPMENT}
 
  {$DEFINE NOWAITING}       { Suspend l'affichage de la page de demarrage. }
 
{.$ELSE}                     { Récupère les instructions $IFDEF sans $ELSE. }
 
 
 
{$ENDIF}
 
 
{ ------------------------------------------------------------------------------
 
  Principe: Un point au debut des accolades desactive une instruction.
            Exemple: (.$DEFINE )
            Plusieurs instruction peuvent etre imbriquees dans le fichier
            include.
 
  Observation: Le compilateur ne compile que les parties actives du programme.
               Desactivation = Allegement du fichier .exe.
               
------------------------------------------------------------------------------ }

puis dans ton source tu déclares le fichier et défini les instructions par exemple comme suit :

program Copromaf;

{$I Copromaf.INC}

uses
Forms,
CopromafPrincipale in 'CopromafPrincipale.pas' {Principale},
.......
......

{$R *.RES}

begin

Application.Initialize;
Application.Title := 'Copromaf v1.0 - Logiciel de gestion.';
Application.HelpFile := '..\Aide\hlp\COPROMAF.HLP';

{$IFDEF NOWAITING}
Application.CreateForm(TPrincipale, Principale);

{$ELSE}

Attente := TAttente.Create(Application);
Attente.Show;

while not (Attente.AccessAuthorized) do
begin

Attente.Update;

Application.ProcessMessages;
if Attente.AccessAuthorized then begin
if not (Attente.AccessCancel) then
Application.CreateForm(TPrincipale, Principale);
Break;
end;

end;

{$ENDIF}

Application.Run;

end.

Bon développement.

[agh]

Merci beaucoup, ça marche très bien !

[FW-S]