Discussion :

[Nono23]

Bonjour à tous,

Petite question que je me pose, est-ce que quelqu'un peut m'expliquer pourquoi le code suivant compile et fonctionne très bien :

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
 
 
Const
     MA_CONST_1 = 1;
     MA_CONST_2 = 2;
     MA_CONST_3 = 3;
     MA_CONST_4 = 4;
 
Var
   MaVariable : Integer;
 
begin
     MaVariable:=StrToInt(Edit1.Text);
 
     Case MaVariable Of
     MA_CONST_1 : ShowMessage('A');
     MA_CONST_2 : ShowMessage('B');
     MA_CONST_3 : ShowMessage('C');
     MA_CONST_4 : ShowMessage('D');
     End;
end;

Alors que celui-ci ne se compile pas (Erreur : Expression constante attendue):

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
 
Const
     MA_CONST_1 : Integer = 1;
     MA_CONST_2 : Integer = 2;
     MA_CONST_3 : Integer = 3;
     MA_CONST_4 : Integer = 4;
 
Var
   MaVariable : Integer;
 
begin
     MaVariable:=StrToInt(Edit1.Text);
 
     Case MaVariable Of
     MA_CONST_1 : ShowMessage('A');
     MA_CONST_2 : ShowMessage('B');
     MA_CONST_3 : ShowMessage('C');
     MA_CONST_4 : ShowMessage('D');
     End;
end;

La seule différence étant de définir un type spécifique pour les constantes.
J'ai toujours l'habitude de définir le type de mes constantes mais du coup là je ne peux pas. est-ce que ça change quelque chose?

(Bien entendu, l'utilité du code est bidon, c'est juste pour reproduire le phénomène)

Merci d'avance.

LaNono

[pprem]

Les constantes typées sont considérées comme des variables non modifiables par le compilateur alors que les constantes non typées sont remplacées par leur valeur.

[Papy214]

Tiens, je suis pas le seul à avoir été confronté à ça

Je considère pourtant que ça reste une bizarrerie de Delphi ...

[Nono23]

Merci beaucoup pour vos explications.

C'est effectivement assez bizarre comme fonctionnement. On va faire avec

[pprem]

Merci beaucoup pour vos explications.

C'est effectivement assez bizarre comme fonctionnement. On va faire avec

Si tu veux forcer le type, fais le transtypage des valeurs.

Code :

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

1
2
3
4
const
  a = 5; // constante
  b: integer = 5; // variable non modifiable
  c = integer(5); // constante typée et reconnue comme constante

[Nono23]

Ah oui super, merci pour l'astuce.