case geht nich ?!?

[SirTwist]

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;