countdown der auf systemzeit zugreift

[schoenwetterflieger]

halli hallöle

ich bin gerade beim werkeln an einem countdown, der in ein normales programm eingebunden werden soll. der countdown soll auf die systemzeit des rechers zugreifen und somit immer genau, ohne eingabe der jezigen zeit, runterzählen. es soll das format tage stunden minuten sekunen besitzen, aber leider bringe ich keinen countdown zustade... bitte um HIIIIILLLFFEEEE

mfg schoenwetterflieger

[ManuMF]

Was für HIIIILLLLFFFEEE brauchst du denn?
- Wie man die Zeit bekommt? Time bzw. Now
- Wie man die Zeit verarbeitet? FormatDateTime für Strings; SecondOf, MinuteOf etc. für Integer
Und die Berechnung ist abhängig von dem Zeitpunkt, zu dem der Countdown laufen soll. Tipp: Du kannst TDateTime-Werte einfach subtrahieren, für den Countdown quasi "Rest = Später - Jetzt". Und an Später kommst du z.B. mit StrToDateTime

[chrisw]

Hab das mal so gelöst : (Form mit nem Timer (interval 1 Sekunde (1000)) und nem Statusbar mit einem Panel)

Delphi-Quellcode:

TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  end;
.....

var CountDownTage : Integer = 5*24*60*60;  // 5 tage in Sekunden als Beispiel

function GetDayHourMinuteSecond(CountDown : Integer) : String;
var t,h,m,sec : Word;
begin
  t := Countdown div 86400;
  Countdown := Countdown  mod 86400;
  h := Countdown div 3600;
  Countdown := Countdown  mod 3600;
  m := Countdown div 60;
  Countdown := Countdown  mod 60;
  sec := Countdown ;
  Result := IntToStr(t) + ' Tage ' +
            IntToStr(h) + ' Stunden ' +
            IntToStr(m) + ' Minuten ' +
            IntToStr(sec) + ' Sekunden';
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Dec(CountDownTage);
  StatusBar1.Panels[0].Text := GetDayHourMinuteSecond(CountDownTage);
end;