multithreading - 在 TListView 中更新每个线程的计时器，而不会造成 CPU 过载

Question

使用德尔福:2007

大家好，

我有一个 TListView，其 ViewStyle 设置为 vsReport。当我单击按钮时，我会启动大约 50 个线程。每个线程都有一个 TListItem 组件。每个 TListItem 都有一个作为计时器的 SubItem。它从 250 开始，一直下降到 0。用户可以在 TListView 中看到每个计时器的递减。

我编写了以下代码:

procedure TThreadWorker.DeleteTickets;
begin
 ListItem.Delete;
end;

procedure TThreadWorker.UpdateTimer;
begin
 ListItem.SubItems[1] := IntToStr(Timer);
end;

procedure TThreadWorker.TimerCounter;
begin
 Timer := 300;
 repeat
  Sleep(1000);
  Dec(Timer);
  Synchronize(UpdateTimer);
 until (Timer = 0);
 Synchronize(DeleteTickets);
end;

而且......它有效!但问题是:所有这些同步似乎都不必要地使 CPU 过载。显然，当我启动更多线程(100、200 或 300)或使用较弱的计算机时，这是一个更大的问题。起初，我不确定这是同步的问题；但如果我停用它们，CPU 就不再过载。

坦率地说，这并不是什么大问题。但是，我感觉递减计时器不应导致任何类型的 CPU 过载:我的代码可能不正确。我尝试减少调用 UpdateTimer 的次数，虽然它减轻了 CPU 过载，但最终并没有解决它。此外，我希望用户看到计时器每秒更新一次。计时器还需要尽可能精确。

谢谢。

Answer 1

我认为你已经本末倒置了。让所有线程同步到主线程中，每个线程都有自己的计时器和消息队列，会给系统带来沉重的负担。更重要的是，很多时候您不想让运行消息循环给线程带来负担。

我认为更好的方法是在主线程中放置一个计时器。当它勾选时，让它从需要报告的每个线程或任务中检索进度。您需要序列化对该进度的访问，但这并不昂贵。