首页 > 编程语言 > 详细

delphi假死线程堵塞解决办法

时间:2019-02-26 21:00:57      阅读:188      评论:0      收藏:0      [点我收藏+]

Delphi的高效不多说... 俗话说;真正的程序员用C语言,聪明的程序员用Delphi,一点都不假,和C++比它比C++更简单,更容易上手,功能丝毫不逊色C++,
比起VB,毫无疑问比VB好多了,重要的是快,高效! 高效的Pascal编译器,强大的数据库支持==....

Delphi在进行计算量相当大的时候会出现程序假死,在线程编程的时候会出现线程堵塞,更重要的是在线程编程时可以大大加快程序的效率。。
我们可以用这个函数:Application.ProcessMessages; //防止线程堵塞,程序假死

如在进行一个0到10000的运算时可能会出现假死的现象

 

procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
begin
for n:=0 to 10000 do
begin
Edit1.Text := IntToStr(n);
end;
end;

把它改成这样

procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
begin
for n:=0 to 10000 do
begin
Application.ProcessMessages;
Edit1.Text := IntToStr(n);
end;
end; 

运行后的效果很明显...
送给Delphi新手,很实用的一个函数

delphi假死线程堵塞解决办法

原文:https://www.cnblogs.com/jijm123/p/10439919.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!