用BCB写一个最简单的多线程 (转)

用BCB写一个最简单的多线程 (转)[@more@]

下面是用BCB写的最简单的一个多线程小程序

//.cpp中的线程描述
_fastcall TMyThread::TMyThread(void):TThread(true)
{
FreeOnTeRminate=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(Tobject *Sender)//执行线程
{
MyThread=new TMyThread();
MyThread->FreeOnTerminate=true;
}

//.h中的线程类定义
//声明线程
class TMyThread:public TThread
{
public:
  __fastcall TMyThread(void);
private:
  void __fastcall Execute(void);
};

//可以在.h的窗体类定义中加入
TMyThread *MyThread;//声明一个自己的线程

这样就是一个简单的多线程程序

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-990598/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-990598/