Das lag aber nicht am CASE, sondern an der "falschen" Berechnung.
So würde es z.B. gehen: (linke Dezimalstelle = A und die Rechte = B)
Delphi-Quellcode:
case A * 10 + B of
01: kPreis := 1;
...
end;
@Klaus01: Ja, eine direkte Berechung wäre natürlucgh schöner, aber schau mal ganz genau auf die Zahlen ... da sind Lücken/Sprünge drin.