線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1005
推到 Plurk!
推到 Facebook!

請教有指令可以讓程式暫停,當有click 時可以從中斷點繼續執行

尚未結案
jasper4877
一般會員


發表:17
回覆:4
積分:4
註冊:2004-08-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-04 10:39:00 IP:211.23.xxx.xxx 未訂閱
請教有指令可以讓程式暫停嗎,當有click 時可以從中斷點繼續執行  安排有4 個Buttom START,PAUSE.CONTINUE.STOP.
if(TESTOn) { // 
      Test = new PTTEST();
      try {
         if (Terminated_STOP)  // 按下 stop 
            return;  //跳出程式..end....
           if (Terminated_PAUSE)
              { 1執行暫停的程式,,
                2.並偵測是否有CONTINUE 被按下 
                3,要如何可以從程式的暫停點再執行迴圈          
              }
         程式片斷 在一迴圈中Run
                for(int i = 1; i <= 64; i  ) 
                 Test->HWSelfTest(HWListView, Memo); 
                      //從1到64 秀出結果           
      }
      catch(...){}
     delete Test;
     Test = NULL;
           }
                    謝謝你能撥空看完...不知如何是好的 生手留..     
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-04 15:46:44 IP:221.169.xxx.xxx 未訂閱
jasper4877:
if(TESTOn) { // 
  Test = new PTTEST();
  try {
    if (Terminated_STOP)  // 按下 stop 
      return;  //跳出程式..end....
//    if (Terminated_PAUSE)  { 
    while (Terminated_PAUSE)  {
      1執行暫停的程式,,
      2.並偵測是否有CONTINUE 被按下 
      3,要如何可以從程式的暫停點再執行迴圈
      Application->ProcessMessages();
    }
    程式片斷 在一迴圈中Run
    for(int i = 1; i <= 64; i  ) 
      Test->HWSelfTest(HWListView, Memo); 
      //從1到64 秀出結果           
  }
  catch(...){}
  delete Test;
  Test = NULL;
}
顯然你於
private:        // User declarations
或
public:                // User declarations
有宣告
bool Terminated_PAUSE;
只須將
if (Terminated_PAUSE)改成
while (Terminated_PAUSE)
並於迴圈內加入
Application->ProcessMessages();
按下CONTINUE的Button時
void __fastcall TForm1::CONTINUEClick(TObject *Sender)
{
  Terminated_PAUSE=false;
}  
請參考!
Andy Chang
------
Andy Chang
系統時間:2024-09-18 12:07:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!