Discussion :

[Cornell]

Ce code ne fonctionne pas, le compilateur ignore la ligne

Code :

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

  ShowMessage('DATA défini');

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
procedure TForm1.Test;
begin
  {$UNDEF DATA}
  compil;
  {$DEFINE DATA}
  compil;
  {$UNDEF DATA}
end;
 
procedure TForm1.Compil;
begin
{$IFDEF DATA}
  ShowMessage('DATA défini');
{$ELSE}
  ShowMessage('Indéfini');
{$ENDIF}
end;
 
procedure TForm1.btTestClick(Sender: TObject);
begin
  Test;
end;

ce n'est que lorsque je mets ce code dans une seule procédure que ça fonctionne, mais ça n'a pas grand interêt...

Qu'est ce qui ne va pas ?

[philemon_siclone]

Ben ça parait logique, c'est du preprocessing : donc le precompilateur fait une passe sur ton fichier:
1) il rencontre {$UNDEF DATA}
2) il rencontre {$DEFINE DATA}
3) il rencontre {$UNDEF DATA}
4) il rencontre {$IFDEF DATA} : à ce moment là DATA n'est pas defini, donc il n'insère pas "ShowMessage('DATA défini');" mais "ShowMessage('Indéfini');"

Puis après il compile...

J'espère que mes explications sont à peu près claire: en gros il faut voir les instructions de preprocessing comme du remplacement de texte qui se fait avant la compil et pas comme du code qui s'execute (la preprocesseur ne connait pas les notions de fonction, de procedure, de variable,de classe, etc. ).

[HRS]

l'explication de philemon_siclone est tout à fait satisfaisante

ce qui aurait pû marcher

fichier compil.inc

Code :

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

1
2
3
4
5
6
 
{$IFDEF DATA} 
  ShowMessage('DATA défini'); 
{$ELSE} 
  ShowMessage('Indéfini'); 
{$ENDIF}

votre programme

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
 
procedure TForm1.Test; 
begin 
  {$UNDEF DATA} 
  {$include compil.inc} 
  {$DEFINE DATA} 
  {$include compil.inc} 
  {$UNDEF DATA} 
end; 
 
 
procedure TForm1.btTestClick(Sender: TObject); 
begin 
  Test; 
end;

à condition que le préprocesseur exécute les include en priorité

[Cornell]

Merci pour ces réponses,
(des problèmes de connexion ne m'ont pas permis de répondre plus vite)