include avec les ensembles?

Version imprimable

Bonjour,

pourquoi ceci marche:

Code:

1
2
3
4
5
6
7
8
9
10
 
TEnsemble=(premier,deuxieme,troisieme);
TSousEnsemble=set of TEnsemble;
 
....
var ens:TEnsemble;
 
include(ens,premier);
include(ens,deuxieme);
include(ens,troisieme);

alors que ceci m'affiche un erreur incompatibilite:

Code:

1
2
3
4
5
6
7
8
9
 
....
var ens:TEnsemble;
 
while not qr.eof do //requete a partir d'une table paradox avec le champ contenu(alphanumerique,50) qui contient premier ou deuxieme ou troisieme pour chaque ligne.
  begin
         include(ens,qr.fieldvalue['contenu']);
         qr.next;
  end;

merci d'avance

09/09/2008, 09h50
tourlourou

dans le premier cas, premier est un élément d'une énumération : c'est une valeur ordinale, représentée sur un octet

dans le second, c'est une chaîne de caractère...

les 2 types sont bien incompatibles ; il faudra "traduire" ce qui est stocké pour élaborer l'ensemble...
09/09/2008, 09h54
Yurck

D'abord quelle est l'exception.

Ensuite tu ne peux pas faire un include sur un type différent il faut que tu cast ton résultat qui doit être de type numeric (entier, smallint, longint ...) mais pas flottant.

lorsque tu déclares

Code:

TEnsemble=(premier,deuxieme,troisieme);

cela revient à déclarer

Code:

TEnsemble=(0,1,2);

ou

Code:

TEnsemble=(P,D,T);

regarde la définition des ensembles et essaie d'imaginer comment le compilateur travaille pour mieux comprendre.

Il ne s'agit que de permettre d'accèder à un élément de l'ensemble de façon plus lisible.