5,388
社区成员
发帖
与我相关
我的任务
分享有关线程的终止
Var T1:Thread1;
procedure Thread1.Execute;
var
i:integer;
begin
for i:=1 to 1000000 do
begin
if T1.Terminated then
begin
exit;
end;
synchronize(updateedit);
sleep(10);
end;
end;
我用 T1.Free;可以终止thread1.execute;但问题是sleep(10)换成sleep(10000)后，非要等10秒才能终止，有什么办法立即终止它。
procedure Thread1.Execute;
var
i:integer;
begin
for i:=1 to 1000000 do
begin
if T1.Terminated then
begin
exit;
end;
synchronize(updateedit);
sleep(10);
end;
end;
我用 T1.Free;可以终止thread1.execute;但问题是sleep(10)换成sleep(10000)后，非要等10秒才能终止，有什么办法立即终止它。
...全文
请发表友善的回复…
发表回复
24ge 2003-07-22
- 打赏
- 举报
请问过客api的用法：terminatethread(T1.ThreadID,0);不行。如何写?
李_军 2003-07-22
- 打赏
- 举报
用Api函数TerminateThread，马上让她结束
zjybestzjybest 2003-07-22
- 打赏
- 举报
while (not fterminated) and (j<100)
zjybestzjybest 2003-07-22
- 打赏
- 举报
begin
for i:=1 to 1000000 do
begin
if T1.Terminated then
begin
exit;
end;
synchronize(updateedit);
j:=0
while not fterminated and j<100
begin
sleep(10);
j:=j+1;
end;
end;
end;
for i:=1 to 1000000 do
begin
if T1.Terminated then
begin
exit;
end;
synchronize(updateedit);
j:=0
while not fterminated and j<100
begin
sleep(10);
j:=j+1;
end;
end;
end;
