创建一个死循环的线程,挂起后,如何释放掉内存
lm09 2002-01-30 09:58:12 线程中:
void __fastcall TMyThread::Execute()
{
//---- Place thread code here ----
while(true){
if(Form1->Edit1->Text!="false")
{
Form1->Edit1->Text="false";
Sleep(500);
}
else
{
Form1->Edit1->Text="true";
Sleep(500);
}
}
}
窗体中:
void __fastcall TForm1::Button3Click(TObject *Sender)
{
mine->Suspend();
mine->Free();
}