如果用XE7+的话,可以使用并行库+匿名方法: uses System.Threading; var Tasks: array of ITask; i: integer; // ... SetLength(Tasks, 30); for i := Low(Tasks) to High(Tasks) do begin Tasks[i] := TTask.Create( procedure begin // ... 线程代码 end); Tasks[i].Start; end;
http://docwiki.embarcadero.com/Libraries/XE7/en/System.Threading.TThreadPool
16,748
社区成员
33,247
社区内容
加载中
试试用AI创作助手写篇文章吧