Обратный отсчёт в часах минутах и секундах

[Shouldercannon]

Разобрался только в минутах и секундах

var
  sec, min, hour: Integer;
begin
  dec(C);
  min := C div 60;
  sec := C mod 60;

с часами будет так?

  hour := C div 60;
  min := C mod 60;
  sec := (C mod C) mod 60;

[Sanprof]

если я правильно понял

var
  H, M, S: Integer;
begin
  H := 10;
  M := 45;
  S := 20;
end;
....
begin
  if S <> 0 then
    dec(S) else
  if M <> 0 then
  begin
    S := 60;
    dec(M);
  end else
  if H <> 0 then
  begin
    M := 60;
    dec(H);
  end else
  begin
  ShowMessage('Время истекло!');
  end;
end;

[Shouldercannon]

Не не так. Время задаётся в C := 128 и дальше его надо разбить на hour, min, sec для дальнейшего вывода по таймеру, тоесть для обратного отсчёта.

[Sanprof]

Сообщение от Shouldercannon

Не не так. Время задаётся в C := 128 и дальше его надо разбить на hour, min, sec для дальнейшего вывода по таймеру, тоесть для обратного отсчёта.

чем вам мой вариант не подходит? ставим Interval у Timer = 1000 и пользуем

procedure TForm1.Button1Click(Sender: TObject);
begin
  C := 1000;
  H := (C div 3600);
  Label1.Caption := inttostr(H);
  if H > 0 then
  M := ((C - H*3600) div 60) else
  M := (C div 60);
  Label2.Caption := inttostr(M);
  if M > 0 then
  S := ((C - H*3600 - M*60)) else
  S := C;
  Label3.Caption := inttostr(S);
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if S <> 0 then
  begin
    dec(S);
    Label3.Caption := inttostr(S);
  end else
  if M <> 0 then
  begin
    S := 60;
    dec(M);
    Label2.Caption := inttostr(M);
  end else
  if H <> 0 then
  begin
    M := 60;
    dec(H);
    Label1.Caption := inttostr(H);
  end else
  begin
  timer1.Enabled := false;
  ShowMessage('Время истекло!');
  end;
end;

теперь можете H, M, S выводить на экран

[W0LF]

Перевод секунд в текстовы формат типа HH:MM:SS (+ дни есть, но они закоментированы):

function SecToTime(Sec : Integer) : String;
var
  H,  M,  S,  D  : Integer;
  HS, MS, SS{, DS} : String;
begin
  S := Sec;
  M := Round(INT(S / 60));
  S := S - M * 60;
  H := Round(INT(M / 60));
  M := M - H * 60;
  D := Round(INT(H / 24));
  H := H - D * 24;
  //DS := IntToStr(D);
  if H < 10 then
    HS := '0' + IntToStr(H)
  else
    HS := IntToStr(H);
    if M < 10 then
    MS := '0' + IntToStr(M)
  else
    MS := IntToStr(M);
    if S < 10 then
    SS := '0' + IntToStr(S)
  else
    SS := IntToStr(S);
  Result := {DS+':'+}HS+':'+MS+':'+SS;
end;

Пример таймера в аттаче...

[Shouldercannon]

Способ хорошь. Можно сделать тоже самое, но как я предложил в самом начале, разбивая числа 120, 400, 350 на часы, минуты и секунды?

[W0LF]

А чем вас этот способ не устраивает?

[Shouldercannon]

Сообщение от W0LF

А чем вас этот способ не устраивает?

А вдруг юзер забудет поставить : между цифрамиб тогда будет ошибка.

[W0LF]

А зачем ставить? Я ж дал функцию перевода с секунд в xx:xx:xx вот его и пихайте в таймер.

[Sanprof]

у меня тоже в переменной "С" лежат секунды, которые как вы говорите вводит юзер и тоже мой метод разбивает Секунды (120, 400, 600) на часы, минуты и секунды