mit case bei mehreren Werten mehrere Anweisungen ausführen

[Hallo_Thomas]

Wie kann man 2,3 Werte effizent ausführen?

Hab's mir ungefähr so vorgestellt:

Delphi-Quellcode:

Case i,x of
1:;
2:;
1 and 2:;