计时器(100分)

R

restart0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #1

如何让一个循环每隔5分钟运行一次？我不知道计时器怎么写：P

 

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #2

先定义一个全局变量var i : integer;
i = 0;
设置 Timer1的interval = 1000；
Timer1.enabled := true;

在OnTimer事件中：
inc(i);
if (i div 60 ) = 5 then
begin
执行循环
i := 0
end;

 

R

restart0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #3

不会吧！！那我的电脑不是要不停的去div？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #4

利用Sleep;
比如：

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption :='OK';
Sleep(3000);
Button1.Caption :='Y';
end;

明白了么？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-22

• #5

设置 Timer1的interval = 1000*60*5 不就行了！

 

R

restart0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-13

• #6

多人接受答案了。