Функция Time

[SanekIrk]

Привет. Я хочу сделать секундомер. возможно это сделать через функцию TIME?

[N!ckeL]

Sorry вместо TIME подумал Timer.. Кстати чем не подходит?

в private:

hour, min, sec:integer;

в OnCreate:

hour:=0;
min:=0;
sec:=0;
timer1.interval:=1000;

по таймеру:

begin

 sec:=sec+1;
  if sec=59  then 
 begin
min:=min+1;
sec:=0;
 end;
  if min=59 then 
 begin
hour:=hour+1;
min:=0;
 end;

label1.caption:=inttostr(hour)+':'+inttostr(min)+':'+inttostr(sec);

end;

[SanekIrk]

Сообщение от N!ckeL

Sorry вместо TIME подумал Timer.. Кстати чем не подходит?

в private:

hour, min, sec:integer;

в OnCreate:

hour:=0;
min:=0;
sec:=0;
timer1.interval:=1000;

по таймеру:

begin

 sec:=sec+1;
  if sec=59  then 
 begin
min:=min+1;
sec:=0;
 end;
  if min=59 then 
 begin
hour:=hour+1;
min:=0;
 end;

label1.caption:=inttostr(hour)+':'+inttostr(min)+':'+inttostr(sec);

end;

Я так и планировал сделать, но думал есть проще способ. Спасибо что ответил.