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

下面是用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)+"我得到了参数--我的线程\r\n";

}

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;//声明一个自己的线程

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