Bonjour la commu !

Je reviens vers pour un nouveau souci

En effet, il m'a pris l'envie (comme ça...) de faire de la constante, puis comme je suis un farceur, de les utiliser dans des cases qui n'acceptent que des expressions constantes, ce qui est logique ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Case ConteneurDonnees.TypeNoeud of						   
		TYPE_COMMENTAIRE : writeln('Type');
		else Writeln('Type inconnu :'+IntToStr(ConteneurDonnees.TypeNoeud)); 
	    End;
En revanche, lors de la compilation FPC m'indique un truc un peu spécial...


madlib_xml.pas(218,25) Error: Constant Expression expected
Alors, je cherche un peu et m'aperçois que les constantes ne sont pas des constantes, mais des variables vérifiées à la compilation en écriture et qui en fait, sort une erreur si on essaie de les modifier.

Dommage !

Du coup ma question : Y a-t-il un moyen de faire une vraie constante, qui remplace à la compilation par la valeur que l'on a placée dedans ?

Nota : Quand je parle d'un moyen, c'est différent de celui-ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
{$DEFINE TYPE_COMMENTAIRE := 8}

Merci pour votre aide précieuse !

MAD