Countdown

[Sharky]

Hier meine Lösung:

Delphi-Quellcode:

var
  startzeit : TTime;
  countdown    : TTime;

procedure TForm1.Button1Click(Sender: TObject);
var
  stunden : Integer;
  minuten : Integer;
  sekunden : Integer;
begin
  stunden := 0;
  minuten := 2;
  sekunden := 30;
  countdown := EncodeTime (stunden,minuten,sekunden,0);
  startzeit := Now;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  jetzt : TTime
begin
  jetzt := countdown + (startzeit-now);
  if (jetzt > 0 ) then
    Label1.Caption := FormatDateTime ('nn:ss',jetzt)
  else
    Label1.Caption := '00:00';
  Application.ProcessMessages;
end;