Zitat:
// ZeitInterval ist hier an der Stelle 0
NEIN
lokale Variablen werden nicht intitialisiert
Was man hier auch verwenden könnte, das wäre .Tag
[add]
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Timer1.Tag > 10 then Timer1.Tag := 1;
case Timer1.Tag of
...
end;
Timer1.Tag := Timer1.Tag + 1;
end;
// oder besser (dieses ist unabhängig vom Timer-Namen)
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TTimer(Sender).Tag > 10 then TTimer(Sender).Tag := 1;
case TTimer(Sender).Tag of
...
end;
TTimer(Sender).Tag := TTimer(Sender).Tag + 1;
end;