delphi for i := 1 to 10 do begin if Terminated then Exit; sleep(100); end;for i := 1 to 10 dobeginif Terminated thenExit;sleep(100);end;

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 04:38:00
delphifori:=1to10dobeginifTerminatedthenExit;sleep(100);end;fori:=1to10dobeginifTerminatedthenExit;s

delphi for i := 1 to 10 do begin if Terminated then Exit; sleep(100); end;for i := 1 to 10 dobeginif Terminated thenExit;sleep(100);end;
delphi for i := 1 to 10 do begin if Terminated then Exit; sleep(100); end;
for i := 1 to 10 do
begin
if Terminated then
Exit;
sleep(100);
end;

delphi for i := 1 to 10 do begin if Terminated then Exit; sleep(100); end;for i := 1 to 10 dobeginif Terminated thenExit;sleep(100);end;
是这让线程等待一秒钟(10*100=1000毫秒)
在等待的这一秒钟内,如果收到终止请求就立即退出线程(最多等100毫秒就能退出).
这样做法主要是想让线程的实时响应性更好.
这与直接 sleep(1000) 有所区别,如果直接sleep(1000) ,那线程收到终止请求后,就不是立即退出了,而是可能等1000毫秒后才能退出.如果你想等待的时间不是一秒,而是更长时间,那更不能直到用一个sleep来做,记住一定要用一个 for 循环来实现.否则线程会死等在那里.