wie wird help denn 0?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
r, help: Integer;
begin
if start
then
begin
INC(level);
help:=level + 3;
// bei jedem Timeraufruf wird help auf 4 gesetzt
start:=false;
end;
if (delay = 1)
then
begin
r:=Random(4);
case r
of
0: panel7.Color:=clRed;
1: panel4.Color:=clLime;
2: panel5.Color:=clYellow;
3: panel6.Color:=clBlue;
end;
delay:=2;
end
else
begin
panel4.Color:=clGreen;
panel5.Color:=clOlive;
panel6.Color:=clNavy;
panel7.Color:=clMaroon;
delay:=1;
DEC(help);
// hier ist help = 3
if (help = 0)
then timer1.Enabled:=false;
end;
end;
// und hier ist der Timer zuende.
und vielleicht für eine neue Frage einen neuen Thread aufmachen.
Grüße
Klaus