Question

delphi 线程中使用for循环 很慢怎么解决？

如题！！

函数是自己定义的
for j:=0 to Knapsack_NUM-1 do
begin
Application.ProcessMessages;
Form1.m(inttostr(j));
end;
用线程调用这个函数后发现 大约1秒循环1次

如果循环过程中关闭线程 那么for循环就执行的飞快， 有高手给个方法加快速度吗？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Application.ProcessMessages;

这一句去掉。

追问

去掉之后没变快反而慢了