Wie iteriere ich durch eine Menge?

[Der schöne Günther]

Das ist eigentlich etwas, was spätestens am dritten Tag von Dingen wie "Jetzt lerne ich Delphi in 14 Tagen" vorkommen sollte. Aber ich stehe auf dem Schlauch.

Konkret geht es um System.Classes.TShiftState : Es ist definiert als

Delphi-Quellcode:

  TShiftState = set of (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen, ssCommand, ssHorizontal);

Der Enumerationstyp ist da direkt inline angegben. Wäre es ein "set of TEnumerationsTyp" wüsste ich, was ich zu tun habe. Nur wie kann ich, z.B. in einem "onMouseMove"-Event, jetzt da mit einem for .. in drüber? Von welchem Typ muss meine Iterationsvariable sein?

[DeddyH]

http://delphi.about.com/od/delphitip...for_in_set.htm

[Der schöne Günther]

Das dachte ich auch erst.

Aber das klappt nicht. Ganz konkretes Beispiel:

Delphi-Quellcode:

procedure TForm20.listViewMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
   iterator: TShiftState;
  begin

   for iterator in shift do;

Ergibt: [dcc32 Fehler] Unit20.pas(271): E2010 Inkompatible Typen: 'TShiftState' und 'Enumeration'

[gammatester]

Du hast ja auch iterator: TShiftState , was ja schon ein Menge ist, iterator muß den Typ der Elemente haben. Definiere mal separate Typen TShiftState und TSetOfShiftState.

[Namenloser]

Das liegt daran, dass der Iterator natürlich vom Typ her ein Element der Menge sein muss und nicht selbst wieder eine Menge.

Leider ist TShiftState laut Online-Hilfe so deklariert: TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
Normalerweise definiert man ein Extra-Enum

Delphi-Quellcode:

TMyEnum = (meFoo, meBar);
TMySet = set of TMyEnum;

Delphi-Quellcode:

var
  mySet: TMySet;
  iterator: TMyEnum;
begin
  for iterator in mySet do 
    {...}

Sieht schlecht aus für TShiftState

[Der schöne Günther]

Genau das war meine Befürchtung. Bitter. Würde doch niemandem weh tun, so etwas mal in eine ordentliche Definition für "Element der Menge" und "Menge" aufzudröseln.

[Medium]

Das sieht für mich nach einem Klassischen "ach hätten wir doch bloß nicht damals" aus. Man war seinerzeit sicherlich glücklich bei Borland inline-Set-Mengen angeben zu können, statt immer langatmig 2 Typen zu deklarieren, wo man eigentlich nur die Menge braucht (nutzen soll). Das wurde dann intensiv in der VCL umgesetzt. Jetzt kam man ein paar Jahre später zu dem Trend der Iteratoren, und stellt im Nachgang fest: Ja Mist, was damals so elegant war, beisst uns jetzt in den Hintern.
(Konsequenterweise hätte man hier fast ein neues Sprachelement einfügen können: var iterator: element of TShiftState; , aber entweder kam da keiner drauf, oder der Roll-Out Termin hat schon Nackenklatscher verteilt.)

[Der schöne Günther]

Finde ich auch, das würde ja auch nichts kaputt machen. Wenn man schon so coole Dinge wie z.B. reference to procedure hat, dann geht sicherlich auch so etwas wie "element of"...

Und selbst wenn nicht, dann würde das doch auch nichts kaputt machen, wenn die VCL-Leute im Nachhinein die Definition in Menge und Mengenelement aufsplitten?

[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;

[Union]

Deshalb macht man das ja auch lieber so:
GetEnumname(GetTypeData(TypeInfo(TShiftState))^.CompType^, Ord(ssCtrl));