详细教你如何使用delphi中thread的线程编程计算机等级考试
文章作者 100test 发表时间 2010:01:01 09:32:35
来源 100Test.Com百考试题网
编辑特别推荐:
全国计算机等级考试资料下载
全国计算机等级考试论坛
如何应付二级考试中的公共基础知识
全国计算机等级考试上机考试应试技巧
百考试题教育全国计算机等级考试在线测试平台
为什么要用线程,简单一点来说吧,省得有些象我一样的新手听不懂,当你编完一个程序,例如是读取文件的程序,如果你读取的文件很大,你的程序如果不是通过线程来执行的话,你一动这个正在读取文件的程序窗口,结果是什么,“死屏”就是你的程序根本拖不动,无法继续做其它的事了,呵呵,如果你用线程,什么问题都解决了,废话少讲,要学的看以下文章吧。
首先当然是打开你的delphi 6 ,点取菜单栏中的文件-新建-其它,弹出一个标签窗口,选取new标签,然后找到Thread Object,就是它了,双击它就行了,弹出一个类命名窗口,输入mythread,当然名称可由你自已来定的。这时程序自动创建一个unit,我这里是unit2,现在我们来看unit,代码如下:来源:考试大
unit Unit2.
interface
uses
Classes.
type
mythread = class(TThread)
private
{ Private declarations }
protected
procedure Execute. override.
end.
implementation
{ Important: Methods and properties of objects in VCL or CLX can only be used
in a method called using Synchronize, for example,
Synchronize(UpdateCaption).
and UpdateCaption could look like,
procedure mythread.UpdateCaption.
begin
Form1.Caption := \ Updated in a thread\ .
end. }
{ mythread }
procedure mythread.Execute.
begin
{ Place thread code here }
end.
end.
其中,你注意找到procedure mythread.execute.,应找到了吧,连我都看到了,这就是你刚才建立的线程了,那么接下来,我们要做的就是加入后台执行的代码,代码要加在那里?不会吧,当然是加在
begin
//这里就是加入程序代码的地方了
end.
如果你要调用unit1上的控件,你可以在unit2上面的uses中加入unit1就行了,记住,在unit1里的implementation后面增加uses unit2,这样你就可在unit1中引用线程了,引用的方法很简单,就是,就是,就是,好啦,不卖关了,就是mythread.Create(false).。OK 这就是delphi中的线程,呵呵。