Wie iteriere ich durch eine Menge?

[Dust Signs]

Hallo!

Ich habe zwar eine gefühlte Ewigkeit nicht mehr Delphi programmiert, aber was spricht gegen Folgendes?

Delphi-Quellcode:

var
  state: SmallInt;
begin
  for state := Ord(Low(TShiftState)) to Ord(High(TShiftState)) do //Iteriere über alle möglichen Werte
  begin
    if (state = Ord(ssAlt)) then //Beispiel für einen Vergleich
      WriteLn('Test Alt');
  end;
end;

Ich habe gerade keine aktuelle Delphi-Version installiert, aber mit fpc funktioniert das einwandfrei. Oder habe ich die Fragestellung falsch verstanden?

Grüße
Dust Signs

[Union]

Dagegen spricht dass TShiftState ein Set ist. Von daher kannst Du dort kein Low / High anwenden.
TShiftState = set of (ssShift, ssAlt, ssCtrl,ssLeft, ssRight, ssMiddle, ssDouble);

Bei Enums geht es so wie Du schreibst, z.b:
TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);

[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

[Union]

Zitat von Dust Signs:

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

Aber nicht mit Delphi.

[Uwe Raabe]

Zitat von Dust Signs:

Das ist also genau die verlangte Iteration durch die Werte.

Das war aber gar nicht gefragt. Es sollen doch nur die Werte iteriert werden, die aktuell um Parameter Shift enthalten sind, nicht alle möglichen TShiftState-Werte.

[Uwe Raabe]

Ist zwar auch nicht im Sinne des Erfinders, aber dies geht (auch mit Range-Checking):

Delphi-Quellcode:

var
  I: ssShift..ssShift;
begin
  for I in Shift do begin
    ...
  end;
end;

EDIT:
Aber warum dann nicht auch gleich richtig?

Delphi-Quellcode:

var
  I: ssShift..ssHorizontal;