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:

zusammenfalten · markieren

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

Grüße

Case of funktioniert nicht

Case of funktioniert nicht

Forumregeln