Problème de compréhension des ensembles

D'après ce que j'ai compris de l'aide un ensemble accepte jusqu'à 256 valeurs et chacune de ces valeurs doit être comprise entre 0 et 255.

Ce qui me laisse penser qu'avec le code suivant chaque variable de ce type peut accepter jusqu'à 256 valeurs et que chaque valeur(rang) est limité à 0,1,2 ou 3.

Code:

---

1 2	type TEnsembleEntiers = set of 0..3;

---

Mais il accepte n'importe quel valeur entre 0 et 255 !
De plus quand je fais le test d'appartenance avec in pour savoir si une valeur appartient à l'ensemble il me dit que 14 et 78 appartiennent à l'ensemble alors que 3 ou 8 n'y appartiennent pas !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.btnEnsembleClick(Sender: TObject); type TEnsembleEntiers = set of 0..3; var ensEntier : TEnsembleEntiers; begin ensEntier:=[1, 3, 8 ,15, 78 ];   if 8 in ensEntier then showmessage('Appartient à l''ensemble !') else ShowMessage('En dehors de l''ensemble'); end;

---

Au secours !.. :cry:

Je viens d'essayer et je n'obtiens pas le même résultat. Dans ton ensemble, 3 retourne bien True et 8,15 et 78 retournent False ce qui est normal.

L'aide de Delphi dit :

Citation:

---

Les valeurs possibles du type ensemble sont tous les sous-ensembles du type de base, y compris l'ensemble vide. Le type de base ne peut avoir plus de 256 valeurs possibles et leur rang doit être compris entre 0 et 255. Toute construction de la forme :

set of typeBase

où typeBase est un type scalaire approprié, identifie un type ensemble.

---

Le type de base étant les entiers de 0 à 3, seuls les éléments 0 à 3 sont conservés. Ainsi ensEntier:=[1, 3, 8 ,15, 78 ] et ensEntier:=[1, 3] sont identiques.

Citation:

---

Envoyé par Nono40

Le type de base étant les entiers de 0 à 3, seuls les éléments 0 à 3 sont conservés. Ainsi ensEntier:=[1, 3, 8 ,15, 78 ] et ensEntier:=[1, 3] sont identiques.

---

Merci pour cette explication, j'ai réessayé avec la procédure suivante et j'obtiens bien ce que tu me dis :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.button2Click(Sender: TObject); const tabEns : array[0..4] of integer = (1, 3, 8 ,15, 78); var ensEntier :set of 0..3; i: integer; begin ensEntier:=[1, 3, 8 ,15, 78 ];   for i := 0 to high(tabEns) do begin if tabEns[i] in ensEntier then showmessage(IntToStr(tabEns[i])+ ': True') else showmessage(IntToStr(tabEns[i]) + ': False') end; end;

---

Par contre avec ce code là, la valeur 78 me retourne 'True' 8O

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var ensEntier :set of 0..3; begin ensEntier:=[1, 3, 8 ,15, 78 ]; if 78 in ensEntier then showmessage('True') else ShowMessage('False'); end;

---

Est-ce normal ? !!

Citation:

---

Envoyé par Cornell

Par contre avec ce code là, la valeur 78 me retourne 'True' 8O

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var ensEntier :set of 0..3; begin ensEntier:=[1, 3, 8 ,15, 78 ]; if 78 in ensEntier then showmessage('True') else ShowMessage('False'); end;

---

Est-ce normal ? !!

---

Bizarre, sur mon PC j'ai bien le message False... ( WinME D6Ent )

A mon avis, ca depend de l'optimisation, parce que les valeurs hors normes ne sont pas traitées. Tu dois t'assurer que tu utilises bien des valeurs qui appartiennent à ton ensemble, sinon il peut se passer vraiment n'importe quoi (la preuve apparemment) !

Mic006

Oui effectivement, après essais le résultat dépend de l'optimisation :!:

Il faut donc suivre le consiel de Mic006 et ne pas utiliser d'éléments n'appartenant pas au type de base.

Merci pour ces infos ! :wink: