計算機等考二級Delphi中thread線程編程深入詳解

　　為什么要用線程，簡單一點來說吧，省得有些象我一樣的新手聽不懂，當你編完一個程序，例如是讀取文件的程序，如果你讀取的文件很大，你的程序如果不是通過線程來執(zhí)行的話，你一動這個正在讀取文件的程序窗口，結(jié)果是什么，“死屏”就是你的程序根本拖不動，無法繼續(xù)做其它的事了，呵呵，如果你用線程，什么問題都解決了，廢話少講，要學的看以下文章吧。

　　首先當然是打開你的delphi 6 ，點取菜單欄中的文件-新建-其它，彈出一個標簽窗口，選取new標簽，然后找到Thread Object，就是它了，雙擊它就行了，彈出一個類命名窗口，輸入mythread，當然名稱可由你自已來定的。這時程序自動創(chuàng)建一個unit，我這里是unit2，現(xiàn)在我們來看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;，應找到了吧，連我都看到了，這就是你剛才建立的線程了，那么接下來，我們要做的就是加入后臺執(zhí)行的代碼，代碼要加在那里?不會吧，當然是加在：

　　begin

　　//這里就是加入程序代碼的地方了。

　　end;

　　如果你要調(diào)用unit1上的控件，你可以在unit2上面的uses中加入unit1就行了，記住，在unit1里的implementation后面增加uses unit2，這樣你就可在unit1中引用線程了，引用的方法很簡單，就是，就是，就是，好啦，不賣關(guān)了，就是mythread.Create(false);。OK 這就是delphi中的線程，呵呵。