Timer Verständnisfrage

[himitsu]

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;