Discussion :

[fthdz]

Bonjour,

pourquoi ceci marche:

Code :

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

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 :

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

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

[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...

[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 :

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

 TEnsemble=(premier,deuxieme,troisieme);

cela revient à déclarer

Code :

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

 TEnsemble=(0,1,2);

ou

Code :

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

 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.