Équivalent du #IFDEF

Bonjour,

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

Merci

$IFDEF , non ?

:roll: :wink:

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

Code:

---

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 :

Citation:

---

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.

Merci beaucoup, ça marche très bien !

:chin: