我的程序由于是大循环加小循环 导致CPU 100%,如何解决或者有好的方法

Question

   for f_i:=0 to s_total do
   begin
     for rd_i:=0 to test.Count-1 do
     begin
       readdisk(test.strings[rd_i],rd_i,f_i);
       Sleep(0);
     end;
     diskXor(test.Count);
     WriteFile(test.Count);
     Application.ProcessMessages;   end;以上是我的循环，循环的最大值可以是2000000000的，这样的话运行CPU100%,加SLEEP(0)还是一样，加SLEEP(1)可以但是速度变慢了，请问有没有好的解决或者类似的好的方法？？？？谢谢

Answer 1

最好用线程交给后台处理,你要把sleep(0)改成sleep(1)

Answer 2

如果必须进行这种循环,cpu的开销是不可避免的.
提高效率的方法:
1.将其放入线程中
2.去掉sleep和Application.ProcessMessages
3.减少I/O操作次数,即优化WriteFile(test.Count); 过程

Answer 3

另外,函数readdisk(test.strings[rd_i],rd_i,f_i); 是否也进行了I/O操作?优化之