Case AnsiIndexText -> Ergebnis verändern

[himitsu]

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;