[Вопрос] Как определить прогресс таймера?

[ZARO]

У меня появился вопрос, как сделать так, что бы на label1 выводился прогресс таймера в секундах? Сперва попробывал свойство Interval,а оно отвечает за то, что через какое время будет выполнятся процедура. Помогите плиз реализовать это!

[mihali4]

Двумя таймерами. Один - с секундным интервалом, будет "шлепать" в лэйбл секунды, пока второй (основной) его не остановит...

[Deamonig]

Заведи переменную Int64 и в таймере при каждой итерации добавляй к ней Timer1.Interval затем выводи ее в Label1. Но также чти что данное число это миллисекунды

[SERG1980]

uses DateUtils;
.....
var t:tdatetime;
procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=StrToTime('00:00');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 t:=IncSecond(t);
 label1.Caption:=formatdatetime('hh:nn:ss',t)
end;

[ZARO]

Ок, всем спс, разобрался с секундами, но не получается выводить милисекунды, сделал так:

procedure TForm4.Timer1Timer(Sender: TObject);
begin
kol:=kol+Timer1.Interval;
Label1.Caption:= FloatToStr(kol);
end;

т.е. я хотел чтобы к переменной kol каждую милискекунду прибавлялось значение 1. И потом оно выводилось в лейбл, но почему-то, когдая сравнил с обычными часами, мой таймер слишком запаздывал. Помогите плиз, мб ктонить напишите код.

[ZARO]

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

uses DateUtils;
.....
var t:tdatetime;
procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=StrToTime('00:00');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 t:=IncSecond(t);
 label1.Caption:=formatdatetime('hh:nn:ss',t)
end;

Аа. всё! Биг спс, терь можешь плиз объяснить что такое t:=IncSecond(t);

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[BioHEX]

функция IncSecond увеличивает значение t на 1 секунду

[ZARO]

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

функция IncSecond увеличивает значение t на 1 секунду

Т.е. миллисекунды тоже прибавляются?

Прекращайте ненужное цитирование предыдущих сообщений!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая правая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор

[BioHEX]

Ну 1 секунда, это и есть 1000 милисекунд. А отоброжать милисекунды нет смысла иначе за секунду label будет обновляться тысячу раз. Да и таймер который обрабатывает событие каждую милисекунду создать невозможно.

[Alt]

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

Ну 1 секунда, это и есть 1000 милисекунд. А отоброжать милисекунды нет смысла иначе за секунду label будет обновляться тысячу раз. Да и таймер который обрабатывает событие каждую милисекунду создать невозможно.

Почему? Там же интервал в милисекнудах указывается...