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