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
...
Danke, das dürfte die Lösung sein
Ich war anscheint mit "case" auf dem falschen Weg