請教各位前輩一個小問題 |
|
答題得分者是：Emulator
|
|
cheng_lee
一般會員   發表：3 回覆：0 積分：0 註冊：2002-10-20 發送簡訊給我 |
請教各位前輩一個小問題 我的Form1上只有StartBtn與StopBtn兩個Button，
我希望按下StartBtn後能不斷地檢查某目錄下是否有檔案並做處理，
若按下StopBtn則停止工作，直到我再按下StartBtn再繼續工作，
可是執行時按下StartBtn後雖能正常工作，再按下StopBtn卻當機，
請教各位前輩應如何解決？
我的程式碼如下：
void __fastcall TForm1::StartBtnClick(TObject *Sender)
{
while(1)
{
//不斷地檢查某目錄下是否有檔案並做處理
程式碼…….
}
}
void __fastcall TForm1::StopBtnClick(TObject *Sender)
{
Close();//希望能停止工作，直到我再按下StartBtn後再繼續
}
|
|
lcsboy
版主  發表：87 回覆：622 積分：394 註冊：2002-06-18 發送簡訊給我 |
在while裡, 加個
Application->ProcessMessages(); 如果還不行
在Close前
Application->Terminate(); 如果再再再不行
自己設一個Flag, 比如說bWhile=false; (當然是要全域的)
while()之前 -> bWhile=true;
在while裡判斷bWhile
false--->break;
true--> continue to do your thing. 在Close()之前, bWhile=false;
|
|
Emulator
一般會員 發表：1 回覆：18 積分：8 註冊：2002-10-17 發送簡訊給我 |
|
|
Emulator
一般會員 發表：1 回覆：18 積分：8 註冊：2002-10-17 發送簡訊給我 |
發表時間：2002-10-21 23:40:19
IP:218.184.xxx.xxx 未訂閱
系統時間：2024-04-24 11:17:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |