Interval in sekunden

[SaFu]

hi gibt es eine funktion das man sich die zeit des intervals in sekunden anstatt in milisekunden anzeigen lassen kann

Delphi-Quellcode:

procedure TForm5.Button9Click(Sender: TObject);
begin
 n:= n - 100;
 if Timer3.Interval > 0 then
    begin
      Timer3.Interval:= n;  //Wert "n" übergeben
      Label3.Caption:= IntToStr(Timer3.Interval)+' Millisekunden'; //Intervallanzeige
      Label3.Update; // Label aktualisieren
    end
  else
   MessageDlgPos('Minimum erreicht!',mtInformation,[mbOk],0,260,200);
end;

????

[OregonGhost]

Hmm, dass 1000 Millisekunden eine Sekunde sind, ist schon klar, oder?

Oder was willst du wissen?

[Dunkel]

Zitat von fuknersascha:

hi gibt es eine funktion das man sich die zeit des intervals in sekunden anstatt in milisekunden anzeigen lassen kann

  Label3.Caption:= IntToStr(Timer3.Interval div 1000)+' Sekunden'; //Intervallanzeige Recht so?

[SaFu]

ne nicht so richtig

habe dieses problem will mit zwei buttons die zeit des intervals des timers verkürzen und die zeit des Timerintervals im label ausgeben lassen

Delphi-Quellcode:

//===Timer3 interval erhöhen====================================================
procedure TForm5.Button10Click(Sender: TObject);
begin
 n:=n+100;
 Timer3.Interval:= n; //Wert "n" übergeben
 Label3.Caption:= IntToStr(Timer3.Interval div 1000)+' Sekunden';
 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:= IntToStr(Timer3.Interval div 1000)+' Sekunden';

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

hab es jetzt so oder ist das nicht richtig so

[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.

[Aike]

1. Interpunktion hat noch keinem geschadet.
2. Mach doch bitte eindeutig erkenbar, wo das Problem ist. Was genau funktioniert nicht und was mochtest du tun?

[SaFu]

Ist ja eine schöne lösung aber ganz würde den interval gerne um ganzahlen eröhen sprich sekunden

[SaFu]

Halt nein Stop du hast recht ist richtig so lösung stimmt hatte nur einen Denk fehler

Danke dir