delphi假死线程堵塞解决办法


本文整理自网络,侵删。

 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 url编码与解码工具附代码

Delphi 阿拉伯数字转中文汉字数字

Delphi richedit memo1支持中文搜索、向上查找、区分大小写

Delphi indy控件实现网络验证与asp通信

Delphi 实现php的urlencode编码效果

Delphi中combobox.items.indexof用法

Delphi processid, process handle, window handle 之间的互相转换

Delphi 代替pos的函数

Delphi 从twebbrowser webbrowser得到全部html源码

Delphi indy smtp 发送邮件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...