用BCB寫一個最簡單的多執行緒 (轉)

用BCB寫一個最簡單的多執行緒 (轉)[@more@]

下面是用BCB寫的最簡單的一個多執行緒小

中的執行緒描述
_fastcall TMyThread::TMyThread(void):TThread(true)
{
FreeOnTenate=true;
Resume();
}

明執行緒
void __fastcall TMyThread::Execute()//執行緒功能
{
for(int i=1;i<4;i++)
Form1->Memo1->Text=Form1->Memo1->Text+IntToStr(i)+"我得到了引數--我的執行緒rn";
}
void __fastcall TForm1::Button2Click(T *Sender)//執行緒
{
MyThread=new TMyThread();
MyThread->FreeOnTerminate=true;
}

中的執行緒類定義
明執行緒
class TMyThread:public TThread
{
public:
  __fastcall TMyThread(void);
private:
  void __fastcall Execute(void);
};

以在.h的窗體類定義中加入
TMyThread *MyThread;//宣告一個自己的執行緒

這樣就是一個簡單的多執行緒程式