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 ?