Delphi7下单线程中如何并发调用1个过程?如用线程池,如何操作及注意事项?
数据挖掘相关,想将轮询变为并发,以提高数据时效性。不知工程中有没有比较稳定且得到过验证的方法?线程池如何?如可以,如何操作?
[解决办法]
这个不好说,要看数据交叉情况
有一种这样的
线程
while not Terminated do begin
if not GetData(...) then Break;//从数据列表中获取计算行
ComputeIt(...);//计算数据
end;
function GetData
begin
Lock();
if index<=High(...) then begin
...
Result := True;
end;
UnLock();
end;
这种适合有主线的计算任务.
CPU有几核或者支持几个线程就开几个线程.