Automatisches Hochzählen nach Klick auf den Button

[Aviator]

Am einfachsten mit einem TTimer. Intervall auf 1000ms (Standard) stellen und bei Klick auf den Button starten. Im OnTimer Event des Timers dann die Variable hochzählen.

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Timer.Enabled := True;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(MyVar);

// Evenutell noch Ausgabe auf ein Label
  Label1.Caption := IntToStr(MyVar);
end;