Discussion :

[petitcoucou31]

bonjours a tous ,

je voudrais savoir si il est possible de creer un ensemble dynamiquement , j'ai cherché dans l'aide sans resultat.

En fait je teste un certain nombre de valeur qui se trouvent dans des ensembles sous la forme suivante:

if valeur IN [20..40] then ...

et je voudrais savoir si il est possible de creer ou modifier ces ensembles dynamiquement ( en cours du deroulement du programme )

merci et bonne année a tous !

[Pedro]

Salut
d'après ton exemple, rien ne t'empêche d'utiliser des tableaux dynamiques d'integer... Et de remplacer IN par un fonction de ton cru qui teste la présence de la valeur dans le tableau...
De ce fait, un tableau dynamique est très facile à manipuler, et à modifier en taille.
Bonne chance et bonne année :o

[octal]

Bonjour ...
bien sûr que tu peut remplir ton ensemble dynamiquement.
C'est d'ailleur ce que l'on fait quand on fait

Code :

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

1
2
 
  MonBouton.Font.Style :=  MonBouton.Font.Style + [fsBold];

On ne fait que rajouter un élément à un ensemble qui peut être vide.

Voilà un code exemple qui correspond (peut être) à ce que tu veux faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TForm1.Button1Click(Sender: TObject);
var Ens : Set of byte; // seul les type ordinaux sont acceptés
    i,j : integer;
begin
  Ens := [1..4];
  j := 41;
 
  if j in Ens then ShowMessage('J est dans ENS')  
                else ShowMessage('J est PAS dans ENS'); // Cond OK
 
// Et on rajoute tous les nombres entre 8 et 45 à notre
// ensemble. 
 
  for i := 8 to 45 do Ens := Ens + [i]; 
 
// ENS vaut maintenant :   [1..4] UNION [8..45]
 
  if j in Ens then ShowMessage('J est dans ENS') // // Cond OK cette fois ci
                else ShowMessage('J est PAS dans ENS'); 
 
end;

[Sub0]

Regarde les fonctions Include et Exclude...