Case of funktioniert nicht

[Rookie91]

Hallo zusammen!

ich bin neu hier und wollte mal nachfragen, ob hier jemand eine Lösung für mein Problem hat. Und zwar geht es um folgendes: Für mein Studium muss ich ein kleines Delphi-Projekt programmieren (in der Ausgestaltung sind wir frei).
Ich habe nun mehrere Comboboxen. Ich möchte jeweils eine Combobox mit einer anderen Combobox durch eine Case of Struktur verbinden. Um es besser nachzuvollziehen habe ich den Quelltext eingefügt:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
  case combobox2.ItemIndex of
  0: begin case combobox3.ItemIndex of
    0: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001
                    /9.87*0);
    1: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001
                    /9.87*1);
    2: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001
                    /9.87*2);
    3: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001
                    /9.87*3);
    4: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001
                    /9.87*4);
    5: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001
                    /9.87*5);
      end;

  case combobox2.ItemIndex of
  1: begin case combobox3.ItemIndex of
    0: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
                    /9.87*0);
    1: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
                    /9.87*1);
    2: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
                    /9.87*2);
    3: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
                    /9.87*3);
    4: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
                    /9.87*4);
    5: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
                    /9.87*5);
      end;

usw...

Für den ersten Abschnitt, also case combobox2.itemindex of 0:... funktioniert alles. Für den Rest leider nicht. Es wird mir allerdings auch keine Fehlermeldung angezeigt.

Was mache ich falsch?
Bin noch blutiger Anfänger und hoffe, dass ihr mir helfen könnt :oops:


Grüße

[Perlsau]

"Funktioniert nicht" ist keine nachvollziehbare Fehlermeldung. Bitte beschreibe doch genau, was du erwartest und was stattdessen eintritt.

[Der schöne Günther]

Case in einem case? Bist du dir sicher dass du das wolltest? Siehe Bild im Anhang.

[Klaus01]

.. ginge das nicht auch ohne case of

Delphi-Quellcode:

edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073
/9.87*combobox3.ItemIndex);

Grüße
Klaus

[baumina]

Ohje, das ist ja mal ne ganze Spaghetti-Code-Mahlzeit, die mindestens für 8 Personen ausreicht, ohne das "usw." beachtet zu haben. Ich schätze mal, das kann man alles auf wenige Zeilen reduzieren. Versuch mal "Edit4.Text :=" nur ein einzigesmal in den Code zu bringen.

[ULIK]

Das Problem ist: der Fall combobox2.ItemIndex > 0 wird niemals abgearbeitet! Formatier das Ganze mal und und achte auf die Begin ... End Blöcke! Dann siehst Du, das alles im Fall combobox2.ItemIndex = 0 steht.

[SProske]

So wie ich das sehe, verwendest du immer

Delphi-Quellcode:

edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*0);

Wobei sich die 0.4 abhängig von ComboBox2.ItemIndex ändert, die 0 abhängig von ComboBox3.ItemIndex (genauer gesagt entspricht sie die ItemIndex)

Wieso also nicht:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  MagicNumber1: Integer;
  MagicNumber2: Double;
begin
  MagicNumber1 := ComboBox3.ItemIndex;
  case ComboBox2.ItemIndex of
    0: MagicNumber2 := 0.4;
    1: MagicNumber2 := 0.9;
    {was auch immer hier noch folgen kann}
  end;
  edit4.Text:= FloatToStr(
    MagicNumber2*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*MagicNumber1);
end;

Wobei man das natürlich auch noch weiter optimieren kann...

[Rookie91]

@ baumina: ja ich bin mir da sogar ziemlich sicher, dass das viel kompakter geht. Nur habe ich nicht mehr allzuviel Zeit, mir da was zu überlegen..mit copy paste gehts dann doch relativ zügig..

@ULIK: Was meinst du mit formatieren? ich dachte ein begin hinter dem ersten itemindex und ein end nach den Anweisungen für den jeweiligen itemindex reicht aus?

Vielen Dank für die schnellen Antworten!

[SProske]

Mit formatieren meint er vermutlich das:

Delphi-Quellcode:

  case combobox2.ItemIndex of
    0: begin
      case combobox3.ItemIndex of
        0: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*0);
        1: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*1);
        2: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*2);
        3: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*3);
        4: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*4);
        5: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*5);
      end;
      case combobox2.ItemIndex of  //diese Zeile muss vermutlich einfach weg?
        1: begin
          case combobox3.ItemIndex of
            0: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073/9.87*0);
            1: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073/9.87*1);
            2: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073/9.87*2);
            3: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073/9.87*3);
            4: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073/9.87*4);
            5: edit4.Text:= FloatToStr(0.9*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000002073/9.87*5);
          end;
        end;
      end;
    end;
  end;

[baumina]

Zitat:

Zitat von Rookie91 (Beitrag 1310186)

@ baumina: ja ich bin mir da sogar ziemlich sicher, dass das viel kompakter geht. Nur habe ich nicht mehr allzuviel Zeit, mir da was zu überlegen..mit copy paste gehts dann doch relativ zügig..

Zügig zu deiner Anfrage hier, ja, zum angestrebten Ergebnis allerdings nicht.