Wert von SET OF mit case abfragen?

[Hobbycoder]

Ich würde das mit

Delphi-Quellcode:

if ceBreak in Errors then...;
if ceFrame in Errors then...;

machen.
Eine Case-Anweisung prüft ja nur bis zur ersten Übereinstimmung. Danach wird der Caseblock verlassen. Weitere Übereinstimmungen würden nicht geprüft.

In C++ könnte man das mit case machen. Aber in Pascal ist das mit Case nicht vorgesehen.