Скачать: CL | DM;

Как сделать счетчик времени   Найти похожие ветки 

← →
zrv   (2004-12-27 14:20) [0]

Вот кусок кода:

var
 AllTime,CurrentTime: TDateTime;
...
....
begin
 CurrentTime:=0;
 AllTime:=0;
 Form1.Timer1.Enabled:=True;
....

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 IncSecond(CurrentTime);
 Form1.Label8.Caption:=TimeToStr(CurrentTime);
 Form1.Label8.Repaint;
 Form1.Label10.Caption:=TimeToStr(AllTime);
 Form1.Label10.Repaint;
end;

По прерыванию таймера раз в секунду хочу увеличить CurrentTime на одну секунду и вывести значение на экран, чтобы показать время работы программы. Но на экран выводиться всегда 0:00:00, те фйнкция IncSecond не работает или я что-то не правильно делаю. Подскажите кто знает.

---

← →
Neznaika ©   (2004-12-27 14:30) [1]

Попробуй из CurrentTime выдернуть сек. и делать просто inc(x) потом обратно.
И еще, стесняюсь спросить зачем repaint у label?

---

← →
Gloomer ©   (2004-12-27 14:36) [2]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
CurrentTime:=IncSecond(CurrentTime);
Form1.Label8.Caption:=TimeToStr(CurrentTime);
Form1.Label8.Repaint;
Form1.Label10.Caption:=TimeToStr(AllTime);
Form1.Label10.Repaint;
end;

---

← →
zrv   (2004-12-27 14:36) [3]

Иначе не успевает прорисовывать.

---

← →
zrv   (2004-12-27 14:41) [4]

Спасибо!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c