Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
inc(i);
case i of
1..4: timer5.Enabled:=true;
5: showmessage('test');
6: timer1.Enabled:=false;
end;
end;
end;
Hättest deinen Code etwas strukturiert, wäre dir das fehlende "end" sofort ins Auge gesprungen
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;