[DELPHI6] $DEFINE directive

Bonjour,

J'ai un application delphi dans laquelle j'aimerais faire un $DEFINE qui ai une portée global dans mon application
J'ai essayé en écrivant la ligne dans le source (*.dpr)
unit main.dpr:

Code:

---

1 2 3

program Mod_plt; {$DEFINE __SAMPLE}

---

unit other.pas:

Code:

---

1 2 3 4 5 6 7

unit other; {$IFDEF __SAMPLE} uses sample1; {$ELSE} uses sample2; {$ENDIF}

---

Mais dans other.pas j'arrive toujours dans la partie {$ELSE}

Comment faire ?

Merci d'avance

Je n'ai jamais utilisé ces $DEFINE.

Mais dans ton exemple, est-ce qu'il sont vraiment nécessaires?

Uses sert uniquement à déclarer les annexes de la form, je crois bien.
Est-ce que comme ca, ca ne serait pas aussi simple?

Code:

---

1 2 3

unit other;   uses sample1, sample2;

---

Salut!

Ne dois tu pas inclure le fichier dans l'entête de ton unit ?

Code:

---

{$i Mod_plt.dpr}

---

Personnellement, je mets mes DEFINES dans un fichier .inc et j'ajoute au début de mes units :

Code:

---

{$i defs.inc}

---

Bon dev!

mais c'est très astucieux ça :P

Salut

J'ai déjà eu le problème du $DEFINE dans Delphi 3, il n'était pas pris en considération. La seule solution que j'ai trouvé à ce problème consistait à supprimer le $DEFINE du code du projet et de placer la définition équivalente dans les options du projet (directives conditionnelles).

Pense à tout reconstruire après le changement de cette directive, sinon tu peux avoir des surprises fâcheuses.

Cdlt

e-ric

Au niveau de l'application, tu peux le définir dans les options du projet. Mais je ne sais plus exactement quel onglet ("Compilateur" probablement)