引言: 請問我該怎麼做才會產生 __fastcall TForm1::~TForm1(void) { } 讓我寫程式在裡頭.... 看範例中有這個東西,但我不知道怎麼來的說!! 懇請幫助!!!謝謝

mtmkid 你好: 請參考以下的連結文章 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

mtmkid：RaynorPao版大解釋的非常清楚，我大概以使用的方向說明，
不見得對！還請其他大大指正，在可視條件下如Unit1.cpp當你Close時，
整個BCB建構的元件及變數基本上會自動解構，但有時我們會使用到一些
不可視的程式(多執行緒或你自寫元件)來處理事情，要是用到一些
其他元件的話，那你就要自己處理解構的事件。
如我寫一個ServerSocket
void __fastcall TForm1::
ServerSocket1Accept(TObject *Sender,TCustomWinSocket *Socket)
{
  Sleep(300);
  new TWebThread(Socket); // 當Server接收Client訊息我以多執行緒處理
}
多執行緒程式：
__fastcall TWebThread::
TWebThread(TCustomWinSocket* socket) : TThread(false)
{
  if (socket->Connected)
    FSocket = socket;
  // 我開啟資料表，下例是Topaz的Dbf
  MM = new  TTzDbf(NULL);
  MM->DbfFileName=FWebPath "dbf\\mm.dbf";
  MM->AutoFixRecCount=true;
  MM->Name="mm" Fdbf_str;
  MM->Exclusive=false;
}
__fastcall TWebThread::~TWebThread()
{
  delete MM; // 執行緒結束我必須把Topaz的Dbf刪除。
  Sleep(50);
}
於多執行緒的h檔
class TWebThread : public TThread
{
__published:
  TTzDbf* MM;
...
...
public:
  virtual void __fastcall Execute(void);
  __fastcall TWebThread(TCustomWinSocket* socket,
    AnsiString WebPath,AnsiString dbf_str,AnsiString HostAddress
    );
  __fastcall ~TWebThread(); // 這你就想像是有Form的OnClose事件
我一像就當不管我程式如何只要結束，程式一定會經過~TWebThread();
說明的不好，有錯請指正！