本篇文章主要介绍了"Delphi之多线程实例"，主要涉及到Application方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
其他的我也就不多说了，说也说不好，再说这个东东因为暂时没有完全搞懂所以也不好说！之就给代码吧program TestThread;uses Forms, M...
{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure TTstThread.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }
{ TTstThread }
procedure TTstThread.GiveAnswer;
begin
Form1.Edit1.Text := IntToStr(Answer);
end;
procedure TTstThread.Execute;
var
i: integer;
begin
{ Place thread code here }
FreeOnTerminate := true;
for i := 0 to 2000000 do
begin
if Terminated then break;
inc(Answer, Round(Abs(Sin(Sqrt(i)))));
Synchronize(GiveAnswer);
end;
end;
end.
==================线程单元结束=====================
代码很简单，只是一个计算，不过这个计算却比较费时间。多线程情况下，你可以操作按钮一来就算，同时也可以来操作按钮二来载入一幅图片，不会出现程序假死状态；但是单线程就容易假死，只有等待数据计算完毕才可以在如图片。单线程的代码我就不贴了，比较容易。
最近读书学习，一边看书一边做一些例程，在此记录下来，以供自己以后查阅，我想各位大虾可以略过了。如果您不惜赐教，鄙人将万分感激！谢谢。
以上就介绍了Delphi之多线程实例，包括了Application方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_238773_2.html
