Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

[dummzeuch]

Zitat von lxo:

Zitat von himitsu:

    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}

Geht schon mehr in die Richtung wie ich das haben will, aber auch noch nicht so die optimale Lösung die ich mir vorstelle.
Funktioniert z.B. nicht wenn jemand mittendrin ein Element einträgt (auch wenn man sowas lieber nicht machen sollte).
Und wenn man die Bedingung unten anpasst ohne den neuen Case-Fall hinzuzufügen würde man das ja auch schon umgehen.

Kann man denn evtl. mit den Compiler-Direktiven eine variable Hochzählen? Hab dazu nichts gefunden.
Damit könnte ich ja für jeden Case-Fall die Variable hochzählen und dann gegen "Ord(High(TEnum))" checken.

Vielleicht ganz banal:

{$IF Ord(High(TENum) <> 1}{$MESSAGE Error 'peng'} {$IFEND}

[lxo]

Zitat von dummzeuch:

Zitat von lxo:

Zitat von himitsu:

    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}

Geht schon mehr in die Richtung wie ich das haben will, aber auch noch nicht so die optimale Lösung die ich mir vorstelle.
Funktioniert z.B. nicht wenn jemand mittendrin ein Element einträgt (auch wenn man sowas lieber nicht machen sollte).
Und wenn man die Bedingung unten anpasst ohne den neuen Case-Fall hinzuzufügen würde man das ja auch schon umgehen.

Kann man denn evtl. mit den Compiler-Direktiven eine variable Hochzählen? Hab dazu nichts gefunden.
Damit könnte ich ja für jeden Case-Fall die Variable hochzählen und dann gegen "Ord(High(TEnum))" checken.

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?

[dummzeuch]

Zitat von lxo:

Zitat von dummzeuch:

Zitat von lxo:

Zitat von himitsu:

    {$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).

[Der schöne Günther]

Siehe auch:
Delphi merkt nicht wenn ein case-Statement vollständig ist, oder?

und

Zitat von Der schöne Günther:

Bei Sprachen wie Swift oder Rust bricht der Compiler mit einem Fehler ab, wenn ein match-Statement nicht vollständig ist. Delphi bekommt von all dem aber nichts mit(...)