Wie iteriere ich durch eine Menge?

[DeddyH]

Einen fiesen Trick hätte ich da noch, allerdings ist das nicht ganz ungefährlich und sicherlich nicht zukunftsorientiert, da das wohl in die Hose gehen dürfte, sobald sich mal die Deklaration von TShiftState ändern sollte:

Delphi-Quellcode:

procedure TFormTest.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
type
  TMyState = (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble,
    ssTouch, ssPen);
  TMyStates = set of TMyState;
const
  STATESTR: array [TMyState] of string = ('ssShift', 'ssAlt', 'ssCtrl',
    'ssLeft', 'ssRight', 'ssMiddle', 'ssDouble', 'ssTouch', 'ssPen');
var
  MyState: TMyStates absolute Shift;
  State: TMyState;
begin
  for State in MyState do
    ShowMessage(STATESTR[State]);
end;