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
...

[PeterEenis]

Zitat von 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
...

Danke, das dürfte die Lösung sein
Ich war anscheint mit "case" auf dem falschen Weg

[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.

[Dejan Vu]

Blöd, wenn B mal >9 wird.

[Sir Rufo]

So etwas kann man mit einem Array lösen

Delphi-Quellcode:

var
  PreisLookup: array[0..9,0..9] of double;

Result := PreisLookup[a,b];

oder (im Advanced Mode) mit einem Dictionary. Dort trägt man dann nur die erlaubten Kompinationen mit dem entsprechenden Preis ein.