Einzelnen Beitrag anzeigen

Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.599 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#13

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 17:42
    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}
Vielleicht ganz banal:

{$IF Ord(High(TENum) <> 1}{$MESSAGE Error 'peng'} {$IFEND}
Ist doch erstmal das gleiche wie von himitsu oder wo soll da der Unterschied sein?
Es erkennt auch, wenn jemand einen enum-Wert einfügt, nicht nur wenn jemand einen Wert anhängt. Bei beidem ändert sich Ord(High(TENum)), aber nur bei letzterem ändert sich High(TENum).
Thomas Mueller
  Mit Zitat antworten Zitat