[Delphi] Loop door Enumerated Type

[Verwijderd]

Ik wil graag met een loop door een enumerated type lopen.

Op zich is dat wel te doen, alleen als je de verschillende type een niet opvolgend nummer ga geven dan wordt het lastig:

Delphi:

type
  TEnumeratedType = (Type1 = 1, Type2 = 5, Type3 = 10);

Je kan dan niet met een loop zo er door heen lopen:

Delphi:

  for i := Ord(Low(TEnumeratedType)) to Ord(High(TEnumeratedType)) do

Is dit op een of andere manier toch mogelijk?

[mjax]

met een while loop, waarbij je met het eerste element begint en m.b.v. de Succ() functie de volgende pakt.

[ Voor 71% gewijzigd door mjax op 19-09-2003 10:44 ]

[Johnny Goodbye]

bedoel je dit:
var
i:TEnumeratedType;
begin
for i := low(TEnumeratedType) to high(TEnumeratedType) do
begin
showmessage(inttostr(ord(i)))
end;
end;

[Verwijderd]

mjax schreef op 19 september 2003 @ 10:44:
met een while loop, waarbij je met het eerste element begint en m.b.v. de Succ() functie de volgende pakt.

Nee dat werkt niet. In het voorbeeld wat ik gaf zijn de 3 mogelijk typen van de enumerated type niet op een volgend. Dus ik zou eerst 1 moeten hebben, daarna 5 en daarna 10.

[klinz]

Concept:

code:

type
    TEnumeratedType = (Type1 = 1, Type2 = 5, Type3 = 10);
    TEnumeratedTypeSet = set of TEnumeratedType;
    
var
    i: TEnumeratedType;
    for i := Low(TEnumeratedType) to High(TEnumeratedType) do
        if i in TEnumeratedTypeSet then
            // doe iets met i

[_Thanatos_]

Delphi:

type
   TEnumeratedType = (Type1 = 1, Type2 = 5, Type3 = 10);
var
   I: TEnumeratedType;
begin
I := Low(I);
while I < High(I)
do begin
   //doe iets
   I := Succ(I);
   end;
end;

Dit moet toch werken?

[Verwijderd]

_Thanatos_ schreef op 19 September 2003 @ 13:15:
.....
Dit moet toch werken?

Nee dat werkt niet. Ik moet zo nog even kijken of ik die oplossing van klinz werkend kan krijgen.

[Creepy]

_Thanatos_ schreef op 19 september 2003 @ 13:15:

Delphi:

type
   TEnumeratedType = (Type1 = 1, Type2 = 5, Type3 = 10);
var
   I: TEnumeratedType;
begin
I := Low(I);
while I < High(I)
do begin
   //doe iets
   I := Succ(I);
   end;
end;

Dit moet toch werken?

Succ is niet zo slim om rekening te houden met niet opvolgende enumerated types, helaas. Want je zou inderdaad wel verwachten dat het zou werken.