Wieviele Elemente hat ein Aufzählungstyp

[mschaefer]

Mon, moin

Frage: Gibt es eine Möglichkeit die Anzhal der Elemente
in einem Aufzählungstyp zu ermitteln.


Hintergrund:
In einer Tasturroutine gibt es eine Verzweigung wenn entweder keine Sondertaste oder
nur die Shift-Taste gedrückt ist. Weitere Sondertasten dürfen dabei nicht gedrückt sein.

Jetzt wollte ich folgende Abfrage durchführen

Delphi-Quellcode:

    If   ( ssShift in ShiftState              )
    and ( Shiftstate enthält nur ein Element ) then
    Begin
       . . . 
    End;

Ach so hier die möglichen Elemente von TShiftState aus der Delphi-Hilfe
ShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);

Viele Grüße // Martin

[Christian Seehase]

Moin Martin,

für den Fall kannst Du einfach auf Gleichheit prüfen:

if if Shift = [ssShift] then //...

[mschaefer]

Danke Chris,


das löst das Problem vollkommen

Es ist Zeit für die Woche Schluss zu machen
glaube heute sehe ich den Wald vor lauter Fichten, Tannen, Kirschbäumen ....
( schade ein etwas verschlafenes Smiley fehlt leider.. )

Grüße // Martin