请教：一个定时器(50分)

M

mylemontree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #1

我想在某个动作之后，启动一个定时器，让这个定时器显示一个不断变化的
时间，格式为从00：00开始记数，主要想是用来计算该次动做的绝对时间，
现在我的问题是，不知道该怎么实现，该用什么函数呀/
也许这个问题很菜，还请知道的大哥不要闲麻烦，不胜感激！

 

M

mylemontree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #2

to 卷起千堆雪tyn
我在做一个接警软件，想简单计算一下处警时间，主要是用来提示
工作人员，所以不要很精确。

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #3

开始计时：
FStartTime := Now;
Timer1.Interval := 1000;
Timer1.Enabled := True;

在Timer事件中：
Edit1.Text := TimeToStr(Now-FStartTime);

其中：
FStartTime: TDateTime;

 

M

mylemontree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #4

to Huzzz
谢谢，你教我的方法正是我想要的，已经实现了。

to 卷起千堆雪tyn
gettickcount我没用过，不太熟悉，但还是要感谢你的热心，谢谢。

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #5

用定时器做什么?
不精确的.
直接用 GetTickCount .

var
; i :integer;
; a,b :dword;
begin
; a :=gettickcount;
; for i :=0 to 100 do
; begin
; ; sleep(20);
; ; //你的处理
; end;
; b :=gettickcount-a;
; ShowMessage(IntToStr(b));
end;