Hi Leute,
Ich habe folgendes Problem:
1.Wenn ich bei Delphi 7 Enterprise mit einer While Bedingung arbeiten will schmiert der immer ab und reagiert nicht mehr. Woran könnte das liegen?
und
2.Habe ich das Problem, dass bei meinem eigentlich ziemlich simplen Quelltext beim Ausführen immer die gelbe und die rote Lampe gleichzeitig leuchten obwohl die rote viel früher anfangen sollte.Woran liegt das?
Delphi-Quellcode:
procedure TForm_Baustelle.Button_StartClick(Sender: TObject);
begin
Zaehler:=0;
Timer.Enabled:=True;
rot1.Brush.Color:=clWhite;
gelb1.Brush.Color:=clWhite;
gruen1.Brush.Color:=clWhite
end;
procedure TForm_Baustelle.TimerTimer(Sender: TObject);
begin
Zaehler:=Zaehler+1;
For Zaehler:=1 to 16 do rot1.Brush.Color:=clRed;
For Zaehler:=14 to 16 do gelb1.Brush.Color:=clYellow;