- 1
- 2
- 3
- 4
- 5
- 6
- 7
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec+1;
if sec>59 then begin sec:=0; min:=min+1; end;
if min>59 then begin min:=0; ch:=ch+1; end;
statusbar1.Panels.Items[1].Text:=IntToStr(ch)+':'+IntToStr(min)+':'+IntToStr(sec);
end;
Bor1k 06.02.2010 20:29 # 0
guest 06.02.2010 22:27 # −1
guest 06.02.2010 23:54 # −1
jtim 07.02.2010 02:28 # 0
Где здесь говнокод, xXx_totalwar?
megakoteyka 12.08.2010 15:06 # +1
guest 07.02.2010 15:29 # +1
megakoteyka 12.08.2010 15:10 # +1
А интервал таймера меньше 10 мс вообще крайне сложно получить.
Я в точности так (как автор кода) делал часы под сигнальный процессор - только таймер был аппаратный и не спешил ))
guest 11.03.2010 12:20 # −1
вот в этом и говнокод (если аффтар хотел часики)
guest 01.04.2010 14:42 # −1
Nemerle 06.02.2010 22:37 # +1
guest 07.02.2010 09:20 # −1
guest 07.02.2010 09:24 # −1
nil 07.02.2010 09:46 # 0