Einzelnen Beitrag anzeigen

inttostr-Help-

Registriert seit: 12. Nov 2004
14 Beiträge
 
#1

For und While Bedingungen

  Alt 15. Nov 2004, 22:52
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;
  Mit Zitat antworten Zitat