多線程編程(1)-先入門再說(3)

代碼分析:

CreateThread 一個線程後, 算上原來的主線程, 這樣程序就有兩個線程、是標准的多線程了;

CreateThread 第三個參數是函數指針, 新線程建立後將立即執行該函數, 函數執行完畢, 系統將銷毀此線程從而結束多線程的故事.

CreateThread 要使用的函數是系統級別的, 不能是某個類(譬如: TForm1)的方法, 並且有嚴格的格式(參數、返回值)要求, 不管你暫時是不是需要都必須按格式來;

因為是系統級調用, 還要綴上 stdcall, stdcall 是協調參數順序的, 雖然這裡只有一個參數沒有順序可言, 但這是使用系統函數的慣例.

CreateThread 還需要一個 var 參數來接受新建線程的 ID, 盡管暫時沒用, 但這也是格式; 其他參數以後再說吧.

這樣一個最簡單的多線程程序就出來了, 咱們再用 TThread 類實現一次

type
　TMyThread = class(TThread)
　protected
　　procedure Execute; override;
　end;
procedure TMyThread.Execute;
var
　i: Integer;
begin
　FreeOnTerminate := True; {這可以讓線程執行完畢後隨即釋放}
　for i := 0 to 500000 do
　begin
　　Form1.Canvas.Lock;
　　Form1.Canvas.TextOut(10, 10, IntToStr(i));
　　Form1.Canvas.Unlock;
　end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
　TMyThread.Create(False);
end;

TThread 類有一個抽象方法(Execute), 因而是個抽象類, 抽象類只能繼承使用, 上面是繼承為 TMyThread.

繼承 TThread 主要就是實現抽象方法 Execute(把我們的代碼寫在裡面), 等我們的 TMyThread 實例化後, 首先就會執行 Execute 方法中的代碼.

按常規我們一般這樣去實例化:

procedure TForm1.Button1Click(Sender: TObject);
var
　MyThread: TMyThread;
begin
　MyThread := TMyThread.Create(False);
end;