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

[psycho-coder]

Секунды нужно будет отдельно выводить, так как сделав Dec(C); Вы тем самым уменьшаете минуты но не секунды, поэтому предлагаю такой вариант

private
    Time, S: Integer;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Timer1.Enabled then Timer1.Enabled := false
  else Timer1.Enabled := true;
  Time := StrToInt(Memo1.Lines.Strings[0]); // лень было кидать едит
  S := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  H, M: Integer;
begin
  H := Time div 60;
  M := Time mod 60;
  if S = 0 then
  begin
    S := 60;
    Dec(Time);
  end;
  Label2.Caption := IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S);
  Dec(S);
end;

[Shouldercannon]

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

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

Сделал так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption := SecToTime(12);
end;

Сделал так, а обратного отсчёта нет

[W0LF]

Вы что? Я ж вам дал пример таймер блина... Ставите в едит время (именно из этого SecToTime или вручную) и нажимаете кнопку и будет отсчет назад.

[Sanprof]

а мой вариант не хотите пробовать, ладно, ваше право, у меня лично обратный отсчет идет без проблем

[Shouldercannon]

Я смотрю код примера и исходник не связаны друг с другом. Да и ладно. Тепрь другая проблема. Не могу после окончания отсчёта зпустить таймер снова. Новое время и новый запуск делаю в

if Hours < 0 then begin
        Timer1.Enabled := False;
        Hours := 0;
        Minutes := 0;
        Seconds := 0;
        {** После завершения отсчета произойдет код... **}
        ShowMessage('конец');
        s := '00:25:00';
        Timer1.Enabled := True;
      end;

но толку никакого.

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

а мой вариант не хотите пробовать, ладно, ваше право, у меня лично обратный отсчет идет без проблем

Пробовал все варианты и у всех один исход 0:9:51 вместо 00:09:51 и ещё 2:0:60 -> 1:59:59 и далее

[SERG1980]

var t:integer;
function TimeTrack(t:Int64):String;
 var h,m,s:real;
 begin
  result:='';
  h:=t div 3600;
  m:=(frac(t/3600))*60;
  s:=Frac(m)*60;
  m:=Int(m);
  result:=formatfloat('00',h)+':'+formatfloat('00',m)+':'+formatfloat('00',s);
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
 t:=240;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 label1.Caption:=TimeTrack(t);
 timer1.Enabled:=t>0;
 dec(t);
end;

[Sanprof]

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

Пробовал все варианты и у всех один исход 0:9:51 вместо 00:09:51 и ещё 2:0:60 -> 1:59:59 и далее

я просто дал намек как делать, а если конкретно под ваш случай, то вот мой пример обратного отсчета, есть две функции преобразования из строки ('00:25:00') и преобразования из секунд (3670)
Пример >>2.rar<<

[W0LF]

Я смотрю код примера и исходник не связаны друг с другом.

Так свяжите! Функция перевода 60 секунд в 00:01:00 я вам предоставил. Пример атймера который ведет отсчет тоже. Что вам еще нужно?! Что бы вам его упаковали и предоставили на блюдечке с голубой каемочкой? Думаю нетрудно ввести в одно поле число секунд и при нажатии на кнопку перевести в формат HH:MM:SS и начать осчет.

[psycho-coder]

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

2:0:60 -> 1:59:59 и далее

Неужели так сложно дописать else begin end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  H, M: Integer;
begin
  H := Time div 60;
  M := Time mod 60;
  if S = 0 then
  begin
    S := 60;
    Dec(Time);
  end
  else // <<
  begin //<<
    Label2.Caption := IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S);
    Dec(S);
  end; // <<
end;