delphi应用程序冻结整个win7系统

Question

我有一个简单的程序，可以根据每行单词的长度对文本文件进行排序 这个程序在我的基于 XP 的旧机器上运行没有问题 现在我在我的新 win7/intel core i5 机器上运行这个程序，它冻结了整个系统，并在完成工作后恢复正常。

我检查了代码，发现导致冻结的行

是这个特定的行...

caption := IntToStr(i) + '..' + IntTostr(ii);

我将其更改为

 caption :=   IntTostr(ii);  //slow rate change

，并且没有冻结

，然后我将其更改为

caption :=   IntTostr(i);  //fast rate change

，它再次冻结了

我的程序代码是

 var tword : widestring;
      i,ii,li : integer;
 begin   
     tntlistbox1.items.LoadFromFile('d:\new folder\ch.txt');
     tntlistbox2.items.LoadFromFile('d:\new folder\uy.txt');
     For ii := 15 Downto 1 Do //slow change
      Begin
        For I := 0 To TntListBox1.items.Count - 1 Do //very fast change
        Begin     
          caption := IntToStr(i) + '..' + IntTostr(ii); //problemetic line               
          tword := TntListBox1.items[i];
          LI := Length(tword);
          If lI = ii Then
          Begin             
            tntlistbox3.items.Add(Trim(tntlistbox1.Items[i]));
            tntlistbox4.items.Add(Trim(tntlistbox2.Items[i]));
          End;
        End;
      End;
    end;

任何想法为什么 ？以及如何解决它？ 我使用delphi 2007/win32

Answer 1

这是否发生在表单上的事件处理程序内？我猜是这样的。在这种情况下，“Caption”就在表单的范围内。表单的标题文本不是由 VCL 管理，而是由 Windows 管理，并且如果您在循环的每次迭代中发送新的 WM_SETTEXT 消息。

要彻底解释为什么要这样做，需要了解我所没有的 Windows 内部知识，但如果我猜测一下，我会说它是这样的：

每次您发送 WM_SETTEXT 消息时对于新标题，Windows 会进行检查以确保它与现有标题不同。如果是，则可以立即退出。这就是为什么不频繁的更改（仅使用 ii）不会降低系统速度的原因。但如果它在每次迭代中都发生变化，那么 Windows 必须执行某种任务切换才能更改它。

至于为什么在Vista内核（包括Win7）下会导致整个系统陷入困境，而在XP下却不会，这完全超出了我的专业范围。但是，如果您尝试将其作为某种进度指示器来执行此操作，则有更好的方法，特别是当此循环像看起来一样紧密时。

在紧密循环中处理进度更新的最佳方法是计算迭代次数并且每 X 次仅触发一次。 （对于 X 来说，100 或 1000 可能是不错的值，具体取决于它运行的次数以及整个过程的速度。）这基本上就是 ii only 选项的作用。您还可以尝试在表单上放置一个进度栏来衡量进度，而不是通过表单的标题来衡量进度。

Answer 2

更改表单的标题会释放大量操作 - 特别是在具有 Aero 活动状态的 Vista 和 Win7 下。

一个快速尝试是使用 TLabel 来代替显示进度。 类似的东西

Label1.caption := IntToStr(i) + '..' + IntTostr(ii); //problemetic line               
Label1.Refresh; // or Repaint

除非您的标签是透明的或位于玻璃区域，否则

应该可以解决问题。最好遵循 Mason Wheeler 的建议并使用进度条。由于迭代总数为15*TntListBox1.items.Count，您可以很容易地计算进度值。

Answer 3

首先：您忘记了 tntlistbox3.items.BeginUpdate/tntlistbox3.items.EndUpdate 调用（与 tntlistbox4 相同）。

第二：为什么如果我单击并按住标题栏，我的程序运行得更快？解决

方案（示例）：

const
  UpdateInterval = 500; // half a second
var 
  ...
  LastUpdate: Cardinal;
begin   
  ... 
  LastUpdate := GetTickCount + 100000; // forces first update
  For ii := 15 Downto 1 Do //slow change
  Begin
    For I := 0 To TntListBox1.items.Count - 1 Do //very fast change
    Begin     
      if (GetTickCount > (LastUpdate + UpdateInterval)) or
         (GetTickCount < LastUpdate) then
        caption := IntToStr(i) + '..' + IntTostr(ii); //problemetic line               
      ...
    end;
  end;