Boucle : pour chaque élément d'un ensemble ?

**monstroplante** · 04/11/2005, 17h47

Bonjour,
Je m'interesse depuis peut à la manipulation des ensemble et me demandait si il était prévu de pourvoir faire une boucle qui execute du code pour chaque élément d'un ensemble.

Bien sur, il est possible de se débrouiller :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button4Click(Sender: TObject);
type
  Ttruc=(bla,blabla,blablabla);
  Ttrucs=set of Ttruc;
var
  truc:Ttruc;
  E:Ttrucs;
begin
E:=[bla,blablabla];
for truc:= bla to blablabla do
 if truc in E then begin
   //code .....
 end;

Je peux fonctionner comme ca mais je me demandait simplement si il n'y avait pas des solutions prévues. du genre :

Code :

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

1
2
3
4
 
//code qui ne fonctionne pas:
for truc in E do
   .....

**rvzip64** · 04/11/2005, 18h46

Je ne suis pas sur qu'un tel code existe, mais tu peux combiner une boucle "pour" avec un "case" qui lui peut gerer des intervales.

**Laurent Dardenne** · 04/11/2005, 18h53

Sous Delphi 2005 c'est possible :

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
23
24
25
26
27
28
29
30
31
32
33
 
type
 
  TMyThing = (one, two, three);
  TMySet   = set of TMyThing;
  TCharSet = set of Char;
 
var
  MySet:   TMySet;
  MyThing: TMyThing;
 
  CharSet: TCharSet;
  {$IF DEFINED(CLR)} // Indique si on compile pour DOT NET 
  C: AnsiChar;
  {$ELSE}
  C: Char;
  {$IFEND}
 
begin
 
  MySet := [one, two, three];
  for MyThing in MySet do
   begin
    // Fait qq chose avec MyThing...
   end;
 
 
  CharSet := [#0..#255];
  for C in CharSet do
    begin
      // Fait qq chose avec C...
    end;
end.

Mais sur les versions précédentes je ne pense pas.

**Laurent Dardenne** · 04/11/2005, 19h58

Essaie ceci :

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
23
24
25
26
27
28
29
30
31
 
program ForSet;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,TypInfo;
 
type
  Valeurs=(un,deux,trois,quatre,cinq);
  EnsembleDeValeurs=set of Valeurs;
 
Const
 cstNombreDeValeurs=5-1;
 
var
  MonEnsemble : EnsembleDeValeurs;
  InformationDeType : PTypeInfo;
  J : Integer;
 
begin
 MonEnsemble:=[Un,trois,cinq];
 InformationDeType:=TypeInfo(Valeurs);
 
 For J:=0 to cstNombreDeValeurs do
 begin
  if Valeurs(J) in MonEnsemble
   then Writeln('La valeur ',GetSetElementName(InformationDeType, J),' est dans la variable MonEnsemble.');
 end;
 readln;
end.

Tout ce qui utilise InformationDeType peut être supprimé.

**monstroplante** · 04/11/2005, 23h15

tu peux combiner une boucle "pour" avec un "case" qui lui peut gerer des intervales.

Je n'y avait pas pensé mais ca revient un peut au "if in".

Sous Delphi 2005 c'est possible :

Pas sous D6, tampis...

Code :

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

1
2
3
4
5
For J:=0 to cstNombreDeValeurs do
 begin
  if Valeurs(J) in MonEnsemble
   then Writeln('La valeur ',GetSetElementName(InformationDeType, J),' est dans la variable MonEnsemble.');
 end;