Zitat von
omata:
Weil Interval bei dir eine lokale Variable ist.
Ist mir schon klar. Das hat nichts mit dem Timer1.Interval zu tun.
Ich habs zum besseren Verständnis hier nochmal geändert:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
ZeitInterval: integer;
begin
if ZeitInterval > 10 then ZeitInterval := 1;
case ZeitInterval of
2, 4, 6, 8 : begin
// alle 200ms
end;
5: begin
// alle 500ms
end;
10 : begin
// alle 1000ms
end;
end;
ZeitInterval := ZeitInterval + 1;
Timer1.Interval ist im Design-Form auf 100 eingestellt und der der Timer wird mit Timer1.Enabled = true auch gestartet.
Der Wert ZeitInterval wird als Zähler benutzt, aber die einzelnen case-Abschnitte werden nicht durchlaufen.
Gruss Alois