Discussion :

[Pocus]

Pourquoi c'est la ligne Sleep(3) dans cet exemple qui se compile et pas la ligne du Sleep(2) ? Cela me le fait partout et je ne peux exploiter ces directives du coup pour mes projets.

Je précise que je fais un tout reconstruire à chaque fois pour tenir compte des changements de directive, mais rien n'y fait.







Ce phénomène était déjà la dans D7, et se maintient dans Turbo... donc je suppose que ce n'est pas un bug, par contre je ne vois pas la différence conceptuelle entre ce que je tape et ce qui est indiqué dans l'aide (ci joint pour référence)...

[ALWEBER]

Voila ce que j'ai dans l'aide de mon DELPHI 7
La directive $IFEND termine $IF et $ELSEIF. Cela permet de cacher les blocs $IF/$IFEND aux compilateurs les plus anciens à l'intérieur d'un bloc $IFDEF/$ENDIF, puisque les compilateurs les plus anciens ne reconnaissent $IFEND comme une directive. $IF se termine uniquement par $IFEND. Les directives $IFDEF, $IFNDEF, $IFOPT se terminent uniquement par $ENDIF.

Remarque*: Lorsque vous cachez $IF dans $IFDEF/$ENDIF, n'utilisez pas $ELSE avec le $IF. Les compilateurs des versions précédentes interpréteront le $ELSE comme faisant partie du $IFDEF, ce qui produira une erreur de compilation. Vous pouvez utiliser un {$ELSEIF True} comme substitut de {$ELSE} dans cette situation, puisque le $ELSEIF ne sera pas pris si le $IF est pris d'abord, et puisque les anciens compilateurs n'interpréteront pas le $ELSEIF. Cacher $IF pour assurer la compatibilité ascendante est surtout nécessaire aux fournisseurs tiers et aux développeurs d'applications dont le code doit fonctionner sur beaucoup de versions des produits Delphi et Kylix.

Une sulution possible qui évite la clause ELSE

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
{$IFNDEF MACHIN}
{$IFNDEF TRUC}
{$DEFINE BIDULE}
{$ENDIF}
{$ENDIF}
 
.....
 
{$IFDEF MACHIN}
Form1.caption := 'MACHIN' ;
{$ENDIF}
{$IFDEF TRUC}
Form1.caption := 'TRUC' ;
{$ENDIF}
{$IFDEF BIDULE}
Form1.caption := 'BIDULE' ;
{$ENDIF}

[Pocus]

Et beh, c'est assez tordu tout cela, on dirait de l'aide pour geek

Ceci dit ca m'a donné idée de fureter coté $IF que je n'utilisais pas et j'ai trouvé une structure linéaire qui me va, sans imbriquer les directives. Ca donne cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
const _Module = 'NCP';
 
...
 
  {$IF _Module = 'BOA'}
    Sleep(1);
  {$ELSEIF _Module = 'ACW'}
    Sleep(2);
  {$ELSEIF _Module = 'NCP'}
    Sleep(3);
  {$IFEND}

Désolé, là j'ai beau aimer Delphi et Borland, mais mauvais point pour eux, c'est assez lourd leur façon de faire (opinion personnelle mais que je partage avec moi même bien sur...)