Discussion :

[korntex5]

Bonjour à tous,

j'ai une unit1 qui appelle la unit2 mais dans la unit2 comme c'est la unit1 qui y fait appel je ne veux pas qu'une ligne des uses soit compilée

Comment faire?

[Laurent Dardenne]

Salut,

Comment faire?

En nous donnant un exemple plus parlant peut être ?

[lil_jam63]

Comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
unit 2
 
interface
 
uses
  windows, classes, unit3,
  {$IFDEF TADIRECTIVE}
     unit4, // prise en compte seulement si TADIRECTIVE est déclarée
  {$ENDIF}
   unit5;
 
...

[korntex5]

C'est à peut près ce que j'ai essayé mais bon ça n'as pas marché,
J'ai décléré dans ma unit1 de mon projet 1

Code :

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

1
2
3
4
5
6
 
unit 1 
 
interface
 
{$DEFINE MODE1}

puis dans les uses principaux de la unit 1 je déclare ma unit2, que j'appelle. Dans laquelle au nivaux des uses de l'iplémentation je fais ce que tu dis

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
 
unit 2 
 
interface
...
 
implementation 
uses 
  windows, classes,
  unit1,
  {$IFNDEF MODE1} 
     unit3, // prise en compte seulement si MODE1 n'est pas déclaré 
  {$ENDIF} 
   unit5; 
 
...

[lil_jam63]

Rajoute ton unit 1 dans le bloc uses de la partie interface eu lieu de l'implementation.
Ensuite pour tes essais, reconstruit le projet avant de l'executer.

[korntex5]

Es tu sûr que delphi ne va pas me dire que unit 1 s'appelle récursivement lui même?

[lil_jam63]

Exact, j'avais pas fait attention que tu appelais également unit1 à partir de unit2.
As tu essayés en définissant ta directive dans les options du projet?