Countdown von Tagen Stunden und Minuten schreiben

[ellelle]

Hallo,


ich habe in einem Stringgrid verschiedene Daten(Tag, Stunde, Minute, Sekunde), die sekundengenau runtergezählt werden sollen, bis schließlich bei einer bestimmten zeit, die vom benutzer eingestellt werden kann (zb 10 min) eine funktion "achtung" gestartet wird. Wie stelle ich das an?


danke

mfg elle

[fkerber]

Hi!

Du musst wohl zuerst mal die aktuelle Systemzeit ermitteln. Dann lässt du einen Timer laufen. Intervall dann wohl 1 Sekunde. Sobald die aktuelle Zeit größer ist, als die eingestellte, reagierst du.

Hier mal ein Prinzipien-Beispiel:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (TimeToStr(now)>= '16:00') then begin
timer1.Enabled:=false;
showmessage('achtung');

end;

Ciao Frederic