在设置为5个最大线程数的情况下,运行10个线程,每个线程暂停5秒并返回id编号和线程号。
最后,打印所有的线程id编号和线程号,和程序运行时间,运行时间10秒多一点说明,最大线程数设置成功。
代码如下:
mtic;
a:=array();
for i:=0 to 9 do
begin
a[i]:=#multirun(i);//语句前增加标识#即可执行多线程。
end
echo tostn(a);
echo "总花费秒数为:",mtoc;
return 1;
function multirun(id);
begin
sleep(5000);
return array(id,systhreadid());
end