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

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

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

zusammenfalten · markieren

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;