Brauche Hilfe bei Delphi 6 doppeltes case-Label

[himitsu]

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.