Помогите плиз с таймером

[kinals]

Привет народ. Задумал написать программу таймер с обратном отчетом, в компонент Edit можно было писать часы, минуты, секунды. После того когда запускаешь программу время остатка было написано в label, а edit преподала бы. Скачал исходники, там имеется на подобие, но нет часов (тока минуты и секунды), и не смог нормально отредактировать, какая то ерунда получалась, даже юзал поиском, но не привело не к каким результатам. Каму не тяжело можете ход программы дайте плиз, а лучше всего исходник. Я просто тока начинаю писать, и познавать азы программирование на Delphi 7. Заранее благодарен

[Crivel]

kinals, время остатка чего?

[eoln]

Вот накидал в браузере простенький пример. Допустим есть 3 edit'a для часов минут и секунд. Кидаем на форму TButton и TTimer(первоначально свойство enabled = false)

var
  Form1: TForm1;
  tt: integer;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Enabled := false; //или edit1.visible:=false;
  edit2.Enabled := false;
  edit3.Enabled := false;
  button1.enabled := false;
  timer1.interval := 1000;
  tt := strtoint(edit1.text) * 3600 + strtoint(edit2.text) * 60 + strtoint(edit3.text);
  timer1.enabled := true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  tt := tt - 1;
  label1.caption :=
    inttostr(tt div 3600) + ' ч ' +
    format('%.2d', [tt mod 3600 div 60]) + ' м ' +
    format('%.2d', [tt mod 3600 mod 60]) + ' с '
end;

[kinals]

Eoln сделал как ты написал, что то не пашет. Может я не правильно поставил вопрос, мне надо что бы в Edit можно было указывать на скока нужно поставить таймер, а label показывал скока осталось времени, в обратном oщете. Просто я хочу потом код сунуть что бы комп отрубался, а время обратного oщета мне надо что бы если что видеть скока осталось

Crivel скока осталось времени до (00 часов 00 минут 00 секунд)

[eoln]

У меня работает. Просто там 3 едита для ввода. А если всё в одном писать надо, то строку парсить надо будет. См вложение (сырцы + ехе)

[kinals]

Спасибо большое, все работает. Еще раз спасибо

[kinals]

eoln Помоги еще раз, вроде поставил условие, если все будет по нулям, и что бы выдало сообщение “Время истекло”, и не работает ( не правильно я поставил условие )

[Crivel]

Ну выложите код условия.

[kinals]

Боюсь я опозорюсь

[prog38]

      if (sec=0)and(min=0)then begin
        timer1.Enabled:=false;
        ShowMessage('Интервал истек!');
      end;

sec и min у меня edit'ы с минутыми и секундами.