Wie iteriere ich durch eine Menge?

[Dust Signs]

Warum nicht? Folgender Code funktioniert einwandfrei (siehe http://ideone.com/LfRwI8)

Delphi-Quellcode:

program x;
type
  TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen, ssCommand, ssHorizontal);
var
  state: SmallInt;
begin
  for state := Ord(Low(TShiftState)) to Ord(High(TShiftState)) do
  begin
    case state of
      Ord(ssShift): WriteLn('Shift');
      Ord(ssAlt): WriteLn('Alt');
      Ord(ssCtrl): WriteLn('Ctrl');
      Ord(ssLeft): WriteLn('Left');
      Ord(ssRight): WriteLn('Right');
      Ord(ssMiddle): WriteLn('Middle');
      Ord(ssDouble): WriteLn('Double');
      Ord(ssTouch): WriteLn('Touch');
      Ord(ssPen): WriteLn('Pen');
      Ord(ssCommand): WriteLn('Command');
      Ord(ssHorizontal): WriteLn('Horizontal');
    end;
  end;
end.

Output:

Code:

Shift
Alt
Ctrl
Left
Right
Middle
Double
Touch
Pen
Command
Horizontal

Das ist also genau die verlangte Iteration durch die Werte.

Grüße
Dust Signs