|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Обратный отсчет в таймере
Здравствуйте,помоги пожалуйста переделать таймер.Нужен обратный отсчёт времени,но у меня не получается сделать.
Код:
begin sec := sec + 1; if sec = 60 then begin min := min + 1; sec := 0; end; if sec < 10 then Label2.Caption := '0' + IntToStr(sec) else Label2.Caption := IntToStr(sec); if min < 10 then Label1.Caption := '0'+IntToStr(min) else Label1.Caption := IntToStr(min); end; |