Hi,
Ich benutze in meinem Projekt einen Timer mit einem Intervall von 100ms.
Warume werden die einzelnen case-Anweisungen nicht durchlaufen?
Warum funktioniert folgender Code nicht?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Interval: integer;
begin
if Interval > 10 then Interval := 1;
case Interval of
2, 4, 6, 8 : begin
// alle 200ms
end;
5: begin
// alle 500ms
end;
10 : begin
// alle 1000ms
end;
end;
Interval := Interval + 1;
end;
Gruss Alois
