//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"    int Quit = 0;  // Quit==1 則離開迴路
int Count=0;   // 計算按button1幾次    TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Count  ;
  int k=Count;
  while (Quit==0 && k==Count)      //Quit==1或再按下button1時,離開迴路
  {
    Application->ProcessMessages();
  }
  ShowMessage(k);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Quit = 1;
}
//---------------------------------------------------------------------------

1.簡單的程式,假如我依序按3次的button1和1次的button2會出現什麼結果? ShowMessage(k);的順序會如何呢? 2.那假如我想,當按下第2次的button1時,會顯示1(代表按第一次己執行完畢) 按下第3次的button1時,會顯示2(代表按第二次己執行完畢) 再按一下button2,則顯示3(代表按第三次己執行完畢) 那我該如何做呢? 3.我的腦袋己進入迴路中,轉不出來了,有請各位高手的幫忙,謝謝.

引言:

 
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"    int Quit = 0;  // Quit==1 則離開迴路
int Count=0;   // 計算按button1幾次    TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Count  ;
  int k=Count;
  while (Quit==0 && k==Count)      //Quit==1或再按下button1時,離開迴路
  {
    Application->ProcessMessages();
  }
  ShowMessage(k);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Quit = 1;
}
//---------------------------------------------------------------------------

1.簡單的程式,假如我依序按3次的button1和1次的button2會出現什麼結果? ShowMessage(k);的順序會如何呢? 2.那假如我想,當按下第2次的button1時,會顯示1(代表按第一次己執行完畢) 按下第3次的button1時,會顯示2(代表按第二次己執行完畢) 再按一下button2,則顯示3(代表按第三次己執行完畢) 那我該如何做呢? 3.我的腦袋己進入迴路中,轉不出來了,有請各位高手的幫忙,謝謝.

brook 你好: 小弟我給你一個建議，先在 Form 上拉一個 Memo1，然後分別把 Count & Quit 的值秀在 Memo1 裡面，真相自然可以大白 --

包大人 你好: 不好意思,小弟還是不明白,可否請包大人明示. 其實小弟的原始程式不是這樣,而是經過整理才擬出最主要的關念卡在這裡而無法自拔,原始程式幾千行,目的是上網download多個檔案,如先download第一個檔 a.txt,並用 do while來等待結果,檢查檔案是否download完成. 假如要一直等待到傳輸完成後再來處理下一個檔案,這還不是問題. 問題是:我想在download第二個檔案 b.txt時,就不管 a.txt是否download完成,(完成回應1,未完成回應-1),緊接download 第2個檔 b.txt(因為 a.txt己是過時資料,要等到它download完是很浪費時間的). 但我就是要先知道 a.txt是否是否傳輸完成,就像上面的程式,按下第2次button1時,要會顯示1(代表按第一次己執行完畢) 測的結果都是要等到按下button2時,才依序顯示3,2,1. 下知要如何,才能達到我想要的目的? 2.那假如我想,當按下第2次的button1時,會顯示1(代表按第一次己執行完畢) 按下第3次的button1時,會顯示2(代表按第二次己執行完畢) 再按一下button2,則顯示3(代表按第三次己執行完畢) 那我該如何做呢? 還是有其他的替代方案可以解決這個問題? 上面的小程式 run 起來的答案,可能會和原先想的不一樣.

引言: 包大人 你好: 不好意思,小弟還是不明白,可否請包大人明示. 其實小弟的原始程式不是這樣,而是經過整理才擬出最主要的關念卡在這裡而無法自拔,原始程式幾千行,目的是上網download多個檔案,如先download第一個檔 a.txt,並用 do while來等待結果,檢查檔案是否download完成. 假如要一直等待到傳輸完成後再來處理下一個檔案,這還不是問題. 問題是:我想在download第二個檔案 b.txt時,就不管 a.txt是否download完成,(完成回應1,未完成回應-1),緊接download 第2個檔 b.txt(因為 a.txt己是過時資料,要等到它download完是很浪費時間的). 但我就是要先知道 a.txt是否是否傳輸完成,就像上面的程式,按下第2次button1時,要會顯示1(代表按第一次己執行完畢) 測的結果都是要等到按下button2時,才依序顯示3,2,1. 下知要如何,才能達到我想要的目的? 2.那假如我想,當按下第2次的button1時,會顯示1(代表按第一次己執行完畢) 按下第3次的button1時,會顯示2(代表按第二次己執行完畢) 再按一下button2,則顯示3(代表按第三次己執行完畢) 那我該如何做呢? 還是有其他的替代方案可以解決這個問題? 上面的小程式 run 起來的答案,可能會和原先想的不一樣.

brook 你好: 小弟我只是想提醒你一件事情，那就是~~利用 ShowMessage 得到的實驗結果， 不一定是正確的，因為 ShowMessage 會暫時讓程式停止，但是你的問題是因為 在 runtime 的時候由迴圈, ProcessMessages (或許還有 Timer, Thread) 所造 ，因此最好利用 runtime 的測試方式，得到的測試結果才會是最正確的；其實 也可以不用 Memo1 來完成測試，小弟我的習慣，只要一碰到類似這種的問題， 都會利用 DebugView 來做 runtime 的測試，結果非常的準確喔< >，如果願意 的話，建議你試試看 (有的時候，程式流程會跟你想像的完全不同)< > http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25142 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34857 -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/10/22 14:59:40