delphi 如何解决假死

最新推荐文章于 2015-12-29 16:55:11 发布

转载最新推荐文章于 2015-12-29 16:55:11 发布 · 444 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/martian6125/p/9631085.html

文章标签：

#数据库

本文探讨了在循环处理大量数据时出现的假死现象，并提供了一个解决方案：在循环体内加入Application.ProcessMessages;语句。通过实例演示了这一方法如何避免假死状态，确保程序正常运行。

有大数循环的情况，通常会出现假死，在循环前加一句：Application.ProcessMessages; 就可以了。。
比如下面的例子：
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to 100000 do
  begin
    Edit1.Text := IntToStr(i);
  end;
end;
这样程序执行上面的代码时会出现假死，如果改成下面的就不会了。
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to 100000 do
  begin
    Application.ProcessMessages;
    Edit1.Text := IntToStr(i);
  end;
end;

转载于:https://www.cnblogs.com/martian6125/p/9631085.html