Zitat von
thkerkmann:
ein const i:integer = 0;
in der Timerroutine hätte es auch getan.
Hast du schonmal versucht, eine Konstante zu erhöhen oder zu vermindern?
Mal ein Tip am Rande: So ein Timer hat ein Attribut "Tag", das man beliebig nutzen kann und vom Typ Integer ist... Na?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag := (Timer1.Tag + 1) mod 6;
case Timer1.Tag of
1: ...
2: ...
3: ...
4: ...
5: ...
0: Timer1.Enabled := False; // Trotz 0 wird es als letztes aufgerufen
end;
end;