Brauche Hilfe bei Delphi 6 doppeltes case-Label

[PeterEenis]

Kann mir jemand helfen, Bild ist im Anhang.

[DeddyH]

Willkommen in der DP ,

statt hier Fotos anzuhängen, solltest Du den relevanten Code einfach posten. Zum Problem: Du verwendest ohne es zu wissen ein binäres Und. Wenn Du 0 mit einer beliebigen Zahl "verundest", kommt immer 0 heraus, deshalb ist das case-Label mehrfach belegt. Was willst Du denn eigentlich erreichen?

[nahpets]

Poste doch bitte mal den Quelltext hier. Kann nicht so besonders gut sehen und das Bild ist dann schon 'ne leichte Herausforderung.

Und beschreib bitte mal, was Ziel der Case-Abfrage ist.

So scheint mir das momentan doch ein bisserl abstrakt.

(DeddyH war, wie immer, schneller )

[Klaus01]

.. wäre es nicht einfacher , wenn Du

KPreis := a * 8 +b rechnen würdest?

Grüße
Klaus

[baumina]

Du kannst in einem Case immer nur einen Wert abfragen.

Delphi-Quellcode:

case a of
  0 : begin
        case b of
          0 : 
          1 :
          2
        end; 
      end;
  1 :
  2 :
end;

[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 DeddyH:

Willkommen in der DP ,

statt hier Fotos anzuhängen, solltest Du den relevanten Code einfach posten. Zum Problem: Du verwendest ohne es zu wissen ein binäres Und. Wenn Du 0 mit einer beliebigen Zahl "verundest", kommt immer 0 heraus, deshalb ist das case-Label mehrfach belegt. Was willst Du denn eigentlich erreichen?

Hallo

Eigentlich will ich ja folgendes: wenn a den Wert x hat und b den Wert y hat, dann ist Kpreis=z

also a=0 und b=1 dann ist Kpreis 1€ (zum Beispiel)

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