Delphi-Quellcode:
procedure Stufen;
begin
count:= count +1;
with Form1 do begin
case count of
1: begin
Lb_Stufe1.Font.color := clred;
Lb_Stufe15.Font.color := clWhite;
end;
2: begin
Lb_Stufe2.Font.color := clred;
Lb_Stufe1.Font.color := clWhite;
end;
3: begin
Lb_Stufe3.Font.color := clred;
Lb_Stufe2.Font.color := clWhite;
end;
4: begin
Lb_Stufe4.Font.color := clred;
Lb_Stufe3.Font.color := clWhite;
end;
5: begin
Lb_Stufe5.Font.color := clred;
Lb_Stufe4.Font.color := clWhite;
end;
6: begin
Lb_Stufe6.Font.color := clred;
Lb_Stufe5.Font.color := clWhite;
end;
7: begin
Lb_Stufe7.Font.color := clred;
Lb_Stufe6.Font.color := clWhite;
end;
8: begin
Lb_Stufe8.Font.color := clred;
Lb_Stufe7.Font.color := clWhite;
end;
9: begin
Lb_Stufe9.Font.color := clred;
Lb_Stufe8.Font.color := clWhite;
end;
10: begin
Lb_Stufe10.Font.color := clred;
Lb_Stufe9.Font.color := clWhite;
end;
11: begin
Lb_Stufe11.Font.color := clred;
Lb_Stufe10.Font.color := clWhite;
end;
12: begin
Lb_Stufe12.Font.color := clred;
Lb_Stufe11.Font.color := clWhite;
end;
13: begin
Lb_Stufe13.Font.color := clred;
Lb_Stufe12.Font.color := clWhite;
end;
14: begin
Lb_Stufe14.Font.color := clred;
Lb_Stufe13.Font.color := clWhite;
end;
15: begin
Lb_Stufe15.Font.color := clred;
Lb_Stufe14.Font.color := clWhite;
end;
if count = 15 then begin
Frage1.Visible := false;
Frage2.Visible := false;
Frage3.Visible := false;
Frage4.Visible := false;
end;
end;
end;
end;
beim end unter der if anweisung kommt -> [Fehler] Unit1.pas(184): Konstantenausdruck erwartet
ich hab mal end; weggenommen, welche hinzugefügt, aber nix passiert...immer die meldung (s.o)
