详细教你如何使用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中的线程，呵呵。