Mein zweites Beispiel sollte man wohl nicht ganz Ernst. (aber wenn es ihm zuviele Zeilen sind, dann halt so
)
Wenn in dem CASE jeweils nur 1-3 Zeilen stehen, dann würde ich eher Variante bevorzugen, oder das CASE gegen ELSE-IFs austauschen.
Es gibt tausende Wege es zu lösen, also wie wäre es beispielsweise mal mit etwas Mathematik?
Delphi-Quellcode:
// angenommen Z kennt nur 0 und 1
case AnsiIndexText(Wert, ['A', 'B','C']) + (Z * 10) of
00:
...
01, 11, 10:
...
02, 12:
...
end;