Discussion :

[Jon Shannow]

Bonjour à toutes et tous,

Le titre n'est pas clair, mais je n'arrivais pas à décrire mon problème.

J'ai une constante déclarée comme suit

Code Pascal :

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

K_Boues = [ 22, 41, 46];

Jusque là, pas de souci.

Dans le code, j'utilise une variable de type entier in_JCase.
Pour savoir si in_JCase est dans la liste définie par K_Boues, j'utilise la syntaxe suivante

Code :

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

If in_JCase in K_Boues Then

Et là encore, pas de souci.

Par contre, j'aimerais savoir si in_JCase est égale à 22 ou 41 ou 46.
J'ai essayé

Code :

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

If in_JCase = K_Boues[1] Then

Mais là, j'ai une erreur de compilation "Error : Illegal Qualifier"

Comment puis-je tester cela ?

Merci d'avance
JS

[BeanzMaster]

Salut je pense que cela vient du fait que ta constante n'est pas typée.

Essayes comme ça:

Code :

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

1
2
3
 
const
 K_Boues : array[0..2] of integer = (22, 41, 46);

A+ Jérôme

[Andnotor]

La construction const a = [] n'est pas un tableau mais un ensemble et c'est pour ça que in fonctionne.

[Jon Shannow]

La construction const a = [] n'est pas un tableau mais un ensemble et c'est pour ça que in fonctionne.

Merci à toi et à BeanzMaster,

Mais, ta réponse me pose question... Si je change pour prendre la syntaxe suggérée par BeanzMaster, est-ce que je "in" fonctionnera encore ?

JS

[Andnotor]

Pas avec un tableau. Là il faut une boucle pour retrouver l'index.

Mais si les éléments de la liste ne dépassent pas 255 et surtout sont uniques, tu peux tout de même t'en sortir avec un ensemble (un ensemble est comme un tableau de bits).

Il faut clairement déclarer les éléments et ensuite transtyper.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  TK_Boue = (kb22=22, kb41=41, kb46=46);
 
const
  K_Boues = [kb22, kb41, kb46];
 
in_JCase := 41;
 
if TK_Boue(in_JCase) = kb41 then ...
if TK_Boue(in_JCase) in K_Boues then ...
X := 10 +ord(kb41);

[Jon Shannow]

Merci,

Je ne connaissais pas la syntaxe

Code :

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

1
2
type
  TK_Boue = (kb22=22, kb41=41, kb46=46);

On apprend tous les jours

JS

[Andnotor]

Alors quelques infos supplémentaires.

Si on ne définit pas d'indice, la numérotation commence à 0 : type x = (x1, x2, x3, x4) // ord() = 0,1,2,3.

Définir un indice relance la numérotation : type x = (x1, x2=20, x3, x4) // ord() = 0,20,21,22.

L'indice peut être négatif : type x = (x1=-1, x2, x3, x4) // ord() = -1,0,1,2. A noter que des indices négatifs ne sont pas compatibles avec la construction const a = [].

Un indice peut correspondre à un autre indice : type x = (FirstX, x1=FirstX, x2, x3, LastX=x3, y1) // ord() = 0,0,1,2,2,3 ce qui permet des déclarations telles que const AllX = [FirstX..LastX].

Voili, voilou

[Jon Shannow]

Merci à toi pour toutes ces explications, qui me seront utiles (et à d'autres aussi, j'en suis sûr).

Je mets en résolu.

JS