kleines problemchen mit CASE...OF anweisung

[Celestexvii]

hi,
hab ein kleines Problem mit meiner anweisung
An markierter stelle gibt mir das programm die fehlermeldung:
[Error] Uhotel.pas(200): Undeclared identifier: '1'
kann mir jemand helfen?
gibt es evt auch ne möglichkeit diese gesamte anweisungskette zu
verkürzen?
DANKE

Delphi-Quellcode:

Case rgsaison.ItemIndex of
        0:Case rgdauer.ItemIndex of
                0:      Case rgzimmer.ItemIndex of
                                0:zp:=50;
                                1:zp:=55;
                                2:zp:=60;
                                else
                                zp:=65;

                 1:Case rgzimmer.ItemIndex of //<-- Hier bei der 1: ist der Fehler
                                0:zp:=45;
                                1:zp:=50;
                                2:zp:=55;
                                else
                                zp:=60

                  else

                        Case rgzimmer.ItemIndex of
                                0:zp:=30;
                                1:zp:=35;
                                2:zp:=40;
                                else
                                zp:=45;


        1:Case rgdauer.ItemIndex of
                0:      Case rgzimmer.ItemIndex of
                                0:zp:=55;
                                1:zp:=60;
                                2:zp:=65;
                                else
                                zp:=70;
                1:      Case rgzimmer.ItemIndex of
                                0:zp:=50;
                                1:zp:=55;
                                2:zp:=60;
                                else
                                zp:=65;

                 else
                        Case rgzimmer.ItemIndex of
                                0:zp:=35;
                                1:zp:=40;
                                2:zp:=45;
                                else
                                zp:=50;

        else  Case rgdauer.ItemIndex of
                0:      Case rgzimmer.ItemIndex of
                                0:zp:=60;
                                1:zp:=65;
                                2:zp:=70;
                                else
                                zp:=75;
                1:      Case rgzimmer.ItemIndex of
                                0:zp:=55;
                                1:zp:=60;
                                2:zp:=65;
                                else
                                zp:=70;

                 else
                        Case rgzimmer.ItemIndex of
                                0:zp:=40;
                                1:zp:=45;
                                2:zp:=50;
                                else
                                zp:=55;
 End;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Ich habe den Thread nach Delphi-Language verschoben.
Die Sparte Programmieren allgemein ist nur für andere Programmierprachen da.

Grüsse, Daniel :hi:

[Celestexvii]

danke... :lol:

[Stanlay Hanks]

Jede Case Abfrage muss mit einem end abgeschlossen werden.

Soll heißen, vor der Fehlerstelle fehlen dir glaub ich 2 end.

Prinzipiell ist ein Case Konstrúkt so aufgebaut:

Delphi-Quellcode:

case ..itemindex of
1: anweisung1;
2: anweisung2;
end;

Man liest sich, Stanlay 8)