Как сделать счетчик времени

← →
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]

Спасибо!!!

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