countdown der auf systemzeit zugreift

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