delphi Delphi TParallel Cleanup Needed用法


本文整理自网络,侵删。

 

TParallel创建的任务/线程或多或少是持久性的,这可能有利于重用。但是,我希望看到一个用于清理的类方法。

 

TParallel.For(0, 20, (procedure(A : integer) begin writeln(A) end));

 uses

  System.Diagnostics,

  System.Threading;

 

上面的代码留下了线程,可以在任务管理器中观察到。

 

创建自己的TThreadPool实例并在不再需要时处置它会令您满意吗?

var

  Pool: TThreadPool;

begin

  Pool := TThreadPool.Create;

  try

    TParallel.For(0, 20, (procedure(A : integer) begin writeln(A) end), Pool);

    Write('Disposing of the thread pool - press ENTER to continue...');

  finally

    Pool.DisposeOf;

  end;

end;

线程池仍然存在,可以有效地重用。当需要显式管理线程时,建议使用TThreadpool。

相关阅读 >>

Delphi 16进制字符串转原字符串

Delphi 实现拦截api的钩子(hook)

Delphi xe 启动关闭start page 页错误提示

关于如何发现Delphi程序的内存泄漏

Delphi 中 16 进制转换为 10 进制

Delphi 返回下载地址的文件名

Delphi 把pf8bit位图变换成pf24bit位图

Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动

Delphi 简单字符串截取函数

Delphi中ado异步执行方式

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...