Создаём секундомер [Как сделать часы, минуты, секунды.]

[Jastic]

Вот мой код, это секундомер который стартует при нажатии кнопки.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Case Label1.Visible of
true: i:=i+1;
end;
Label1.Caption:=''+inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Label1.Visible:=True;
end;

У меня идут просто цифры, от 0 до ?. А мне нужно чтобы было "Часы : минуты : секунды"

[Sinapsik]

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

У меня идут просто цифры, от 0 до ?. А мне нужно чтобы было "Часы : минуты : секунды"

а почему не использовать стандартные функции дэлфи? о_О

[Jastic]

Всмысле ? Поясните плз

[Sinapsik]

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

Всмысле ? Поясните плз

простите,как уже написал в своей теме,туплю...не так понял задачу
а вообще вот и вот

[Leo08]

Добавьте в раздел var программы три переменных h,m,s:integer. Каждая переменная будет отвечать за часы, минуты и секунды соответственно!

[Jastic]

Leo08 это я итак знаю, но как написать,что если s=59 then m+1, а s=0

[Вадим Мошев]

Автор темы

Вот вам совет.
Используйте ОДНУ переменную для хранения времени (выраженного в секундах), то есть

Var TotalTime: word; // например

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

h :=  Time DIV 3600;
 m :=  (Time - h*3600) DIV 60 ;
 s :=  (Time - ( h*3600 + m*60 ) ) ;

[Sinapsik]

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

Leo08 это я итак знаю, но как написать,что если s=59 then m+1, а s=0

смотрите ссылки которые я дал в предыдущем посте

[Jastic]

Вадим Мошев спс большое !!!

[Jastic]

А как теперь мне вставить s,m,h в один Лэйбл в таком виде s:m:h.

s:=insert(Label4.Caption,0,pos(':',Label4.Caption)-1);

Начал делать так, но не работает (