很簡單的一個問題.... (5分)

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #1

在運行一個循環時,要求在運行一定時間后如果還沒有運行完,那麼就關閉掉它.
不是sleep,因為sleep只能實再等待,而我要求的是等待的同時還要運行下面的過程,但等待的時間一到則運行我的必要過程.
for i:= 0 to n
begin
{過程} // 要求在運行1000毫秒后如果沒有完成,那麼就視為無法完成而退出這個過程!!
end;

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #2

线程

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #3

var
StartTime:word;
begin
starttime:=gettickcount;
for i:=0 to n
begin
if gettickcount-starttime>1000*1000 then break;
{procedure};
end;

 

G

gigiiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-13

• #4

Begintime := GetTickCount;
for i:= 0 to n
begin
if GetTickCount-begintime>=1000*60*1000 then
begin
Application.MessageBox('无法完成!','警告',mb_ok+mb_iconwarning);
Break;
end;
{過程} // 要求在運行1000鐘后如果沒有完成,那麼就視為無法完成而退出這個過程!!
end;

 

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #5

多謝大家的關注,幫助