Interval in sekunden

[Dunkel]

Delphi-Quellcode:

//===Timer3 interval erhöhen====================================================
procedure TForm5.Button10Click(Sender: TObject);
begin
  n:=n+100;
  Timer3.Interval:= n; //Wert "n" übergeben
  Label3.Caption:= Format('%1.1f Sekunden', [Timer3.Interval / 1000]);
  Label3.Update; // Label aktualisieren
end;

//===Timer2 Intervall verkürzen==================================================
procedure TForm5.Button9Click(Sender: TObject);
begin
  n:= n - 100;
  if Timer3.Interval > 0 then
    begin
      Timer3.Interval:= n;  //Wert "n" übergeben
       Label3.Caption:= Format('%1.1f Sekunden', [Timer3.Interval / 1000]);

       Label3.Update; // Label aktualisieren
    end
  else
   MessageDlgPos('Minimum erreicht!',mtInformation,[mbOk],0,260,200);
end;

Da x div y nur Ganzzahlen zurück gibt, Du aber den Timerinterval um 0.1 Sekunden veränderst, ist der obige Quelltext mit Format() besser.