如何实现延时？ (100分)

C

caining

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #1

[red][/red][]在程序中如何实现延时例如10秒，再接着执行下面的程序？

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #2

sleep(10000);

 

C

cx139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #3

同意楼上的
SLEEP（）函数的单位是豪秒

 

L

liuguan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #4

timer 空间可以
如果
对性能要求不高的话

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #5

最常用:Sleep
李维爱用GetTickTime

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #6

GetTickTime 是得到开机时到当前的时间。延时一般用Sleep()就行了

 

做

做贼心虚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #7

sleep(毫秒)
1秒=1000毫秒

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #8

Sleep(1000*10)啊,傻瓜.

 

苦

苦虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #9

主要看用途
不精确：sleep
比较精确：timer
精确：GetTickTime

 

F

f-h-s

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #10

sleep直接将当前进程挂起，一点都不销耗系统资源，推荐

 

M

mistjin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #11

推荐 用GetTickTime，我常用！呵呵

 

T

treasure

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #12

长见识

 

杨

杨谨瑞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #13

application.processmessages
SLEEP(10000)

 

K

kimlon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #14

用sleep(XXXX);比较方便。注意有时加上application.progressmessage;

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #15

就用sleep吧

 

P

Pc 狂迷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #16

我也想知有没更好的方法，下面的函数 CPU 占用太利害了。

procedure delay(MSEL : integer);
var
FirstTickCount: real;
begin
FirstTickCount := GetTickCount;
Repeat
Application.ProcessMessages;
until (GetTickCount - FirstTickCount) >= Msel;
end;

 

F

fj218

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #17

我原来也是用的delay这种方式，但Cpu占用资源100%，最后改用Timer或Sleep

 

S

skadon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #18

---->我也想知有没更好的方法，下面的函数 CPU 占用太利害了。
delay 1ms没什么意义，delay10个ms试试，
修改如下，看不出占用CPU：
procedure delay(MSEL : integer);
var
FirstTickCount: real;
begin
FirstTickCount := GetTickCount;
Repeat
Application.ProcessMessages; sleep(10);
until (GetTickCount - FirstTickCount) >= Msel;
end;

 

H

hotyei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #19

同意Pc 狂迷。

 

刀

刀剑如梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #20

引用苦虫兄：
主要看用途
不精确：sleep
比较精确：timer
精确：GetTickTime