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

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

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

И не будет работать...

Кстати, может всё-таки h:s:m?
Пишите так

Label4.caption:=IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s);

[Sinapsik]

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

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

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

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

Label1.Caption:=s+':'+m+':'+h;

АПД: опередили и да,тупанул с переводом типов )

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

Label1.Caption:=s+':'+m+':'+h;

s, m, h - это числа, их надо преобразовать в строку.
См. сообщение 11

[Аватар]

я бы хранил

var TotalTime: TDateTime;

и отображал:

Label.Caption:=FormatDateTime('hh:nn:ss',TotalTime);

[Serge_Bliznykov]

  Label4.Caption := Format('%.2d:%.2d:%.2d',[h,m,s]);

Сообщение от Аватар

я бы хранил

var TotalTime: TDateTime;

угу. +1

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

Сообщение от Аватар

я бы хранил

var TotalTime: TDateTime;

и отображал:

Label.Caption:=FormatDateTime('hh:nn:ss',TotalTime);

Скажите, а можно ли переменную типа TDateTime инкрементировать/декрементировать?

[Аватар]

Сообщение от Вадим Мошев

Скажите, а можно ли переменную типа TDateTime инкрементировать/декрементировать?

А зачем? В таймере

TotalTime:=Now;

или вообще без переменной в таймере

Label.Caption:=FormatDateTime('hh:nn:ss',Now);

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

Сообщение от Аватар

А зачем? В таймере

TotalTime:=Now;

Так тут же секундомер создаётся, а не часы

[Аватар]

Сообщение от Вадим Мошев

Так тут же секундомер создаётся, а не часы

Не обратил внимание Тогда запомнить начальное время в BegTime и Label.Caption:=FormatDateTime('hh:n n:ss',Now-BegTime);

[vmilyoshin]

Всё на много проще.

Объявляем глобальные переменные:

var
  z: integer = 0;
  m: integer = 0;
  s: integer = 0;

Пишем такую функцию (для подстановки нуля):

function nol(s: String): String;
begin
  if Length(s) = 1 then
  Result:= '0'+s
  else
  Result:= s;
end;

Кидаем на форму компонент Timer. В его свойстве interval выставляем 1000 (равно 1 секунде). И в событии onTimer прописываем следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if s = 59 then
  begin
  s:= 0;
  if m = 59 then
  begin
  m:= 0;
  if z = 23 then
  z:= 0
  else
  inc(z);
  end
  else
  inc(m);
  end
  else
  inc(s);
  Label1.Caption:= nol(IntToStr(z))+':'+nol(IntToStr(m))+':'+nol(IntToStr(s));
end;

Всё. Удачи всем.