Brauche Hilfe bei Delphi 6 doppeltes case-Label

[nahpets]

Oder meinst Du sowas?

Delphi-Quellcode:

  a := ComboBox1.ItemIndex;
  b := ComboBox2.ItemIndex;
       if (a = 0) and (b = 1) then kPreis := 1
  else if (a = 0) and (b = 2) then kPreis := 2
...
  else if (a = 1) and (b = 0) then kPreis := 8
...