Как сделать таймер в Delphi?

[kotaina]

Кто-нибудь знает как сделать таймер в Delphi?

[Пепел Феникса]

есть компонент TTimer.
или что вы под таймером подразумеваете?

[kotaina]

Сообщение от Пепел Феникса

есть компонент TTimer.
или что вы под таймером подразумеваете?

Я имею ввиду самый обычный отсчёт времени до нуля.

[Wicort]

а погуглить?
Например, так

[Sna1L]

Можно сделать так: два таймера.
Один ведет отсчет, а другой раз в секунду записывает время.

функция батон1.клик
бла-бла
timer1.interval:=strtoint(edit1.text);
timer2.interval:=1000;
timer1.enabled:=true;
timer2.enabled:=true;
x:=timer1.interval div 1000;//секунды
end;

функция timer2timer
бла-бла
label1.caption:=inttostr(x);
dec(x);
end;

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

а погуглить?
Например, так

оффтоп.
кстати мой таймер проще :D

[Serge_Bliznykov]

Можно сделать так: два таймера.
Один ведет отсчет, а другой раз в секунду записывает время.

Тогда уже три: А третий раз в секунду запускает 1-й и останавливает!
Должен же кто-то следить за этими двумя контролами!

Ну, если серьёзно, тут ОДНОГО таймера более чем достаточно.
Он и считает и время записывает и ещё что надо делать - будет делать...

[Sna1L]

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

Тогда уже три: А третий раз в секунду запускает 1-й и останавливает!
Должен же кто-то следить за этими двумя контролами!

Ну, если серьёзно, тут ОДНОГО таймера более чем достаточно.
Он и считает и время записывает и ещё что надо делать - будет делать...

с одним правильней, с двумя(по-моему) наглядней, а три - это жадность. Хотя кому как

[tsar_]

Также учитывайте, что компонент Timer отсчитывает время приближенно. Это можно увидеть, если оставить его поработать на длительное время и сравнить его показания с часами. В этом случае лучше привязываться, скажем, к часикам BIOS. Если же вас точность не интересует или отмеряете малые промежутки времени - один таймер выше крыши.

[prosto me]

Тут все просто:
кидаешь на фому: 2label,1timer...И пишешь на таймере:

r:string;
begin
os:=strtoint(label1.caption);
dec(os);
label1.caption:=inttostr(os);
h:=os div 3600;
os:=os-h*3600;
m:=os div 60;
s:=os mod 60;
r:='time: [ ';
if h<10 then r:=r+'0'+inttostr(h)
else r:=r+inttostr(h);
r:=r+' : ';
if m<10 then r:=r+'0'+inttostr(m)
else r:=r+inttostr(m);
r:=r+' : ';
if s<10 then r:=r+'0'+inttostr(s)
else r:=r+inttostr(s);
r:=r+' ]';
label2.caption:=r;
if os=1 then begin
timer1.enabled:=false;
//тут пишешь свои действия, когда закончится. //время
end;
end;

...Делаешь label1 невидимым и пишешь в него целое количество секунд, например если твой таймер нужен на 1 час, в label1 пишешь 3600, а все время до конца будет отображаться в label2...

[Пепел Феникса]

Сообщение от prosto me

Тут все просто:
кидаешь на фому: 2label,1timer...И пишешь на таймере:
var s,m,h,os:integer;
r:string;
begin
os:=strtoint(label1.caption);
dec(os);
label1.caption:=inttostr(os);
h:=os div 3600;
os:=os-h*3600;
m:=os div 60;
s:=os mod 60;
r:='time: [ ';
if h<10 then r:=r+'0'+inttostr(h)
else r:=r+inttostr(h);
r:=r+' : ';
if m<10 then r:=r+'0'+inttostr(m)
else r:=r+inttostr(m);
r:=r+' : ';
if s<10 then r:=r+'0'+inttostr(s)
else r:=r+inttostr(s);
r:=r+' ]';
label2.caption:=r;
if os=1 then begin
timer1.enabled:=false;
//тут пишешь свои действия, когда закончится. //время
end;
end;


...Делаешь label1 невидимым и пишешь в него целое количество секунд, например если твой таймер нужен на 1 час, в label1 пишешь 3600, а все время до конца будет отображаться в label2...

1)теме два года.
2)хранить число как строку не оптимально.