【更新内容】
TQJobGroup.Cancel函数默认是等待正在运行的作业完成后才会退出,而这会造成如果在TQJobGroup的作业中调用Cancel函数时,会陷入死循环无法退出的问题。通过加入一个布尔参数以决定是否等待可以更方便的调用Cancel函数。
在分组作业的作业函数中,下面的代码是错误的:
procedure TForm1.DoGroupJob(AJob:PQJob); begin TQJobGroup(AJob.Group).Cancel; end;
下面的代码也是错误的:
procedure TForm1.DoGroupJob(AJob:PQJob); begin TQJobGroup(AJob.Group).Cancel(True); end;
而下面的代码是正确的:
procedure TForm1.DoGroupJob(AJob:PQJob); begin TQJobGroup(AJob.Group).Cancel(False); end;
【更新级别】
可选
【特别感谢】
恢弘