我利用bcb 寫了一個21點的程式 但是在發牌時,無法一張一張發牌, 每次按下開始 都是一次顯示四張牌 以下是程式碼,請問各位高手 我應該如何改成可以一張一張顯示圖片呢 另外，每當程式執行時，都必須等待一段時間，牌才會顯示出來， 不知是不是有什麼問題，應該要如何解決呢？？ if(card_num1[8]>=14 && card_num1[8]<=26) { Image8->Visible=true; ImageList1->Draw(Image8->Canvas,0,0,card_num1[8],true); card_num[8]=card_num1[8]-13; } else if(card_num1[8]>=27 && card_num1[8]<=39) { Image8->Visible=true; ImageList1->Draw(Image8->Canvas,0,0,card_num1[8],true); card_num[8]=card_num1[8]-26; } else { Image8->Visible=true; ImageList1->Draw(Image8->Canvas,0,0,card_num1[8],true); card_num[8]=card_num1[8]-39; } card_num1[1]=random_num(); while(card_num1[1]==card_num1[8]) { card_num1[1]=random_num(); } if(card_num1[1]>=1 && card_num1[1]<=13) { card_num[1]=card_num1[1]; card_style[1]="c"; Image1->Visible=true; Image1->Picture->LoadFromFile("cardpic.bmp"); } else if(card_num1[1]>=14 && card_num1[1]<=26) { card_num[1]=card_num1[1]-13; card_style[1]="d"; Image1->Visible=true; Image1->Picture->LoadFromFile("cardpic.bmp"); } else if(card_num1[1]>=27 && card_num1[1]<=39) { card_num[1]=card_num1[1]-26; card_style[1]="h"; Image1->Visible=true; Image1->Picture->LoadFromFile("cardpic.bmp"); } else { card_num[1]=card_num1[1]-39; card_style[1]="s"; Image1->Visible=true; Image1->Picture->LoadFromFile("cardpic.bmp"); } card_num1[9]=random_num(); while(card_num1[9]==card_num1[1] || card_num1[9]==card_num1[8]) { card_num1[9]=random_num(); } if(card_num1[9]>=1 && card_num1[9]<=13) { card_num[9]=card_num1[9]; Image9->Visible=true; ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true); } else if(card_num1[9]>=14 && card_num1[9]<=26) { card_num[9]=card_num1[9]-13; Image9->Visible=true; ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true); } else if(card_num1[9]>=27 && card_num1[9]<=39) { card_num[9]=card_num1[9]-26; Image9->Visible=true; ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true); } else { card_num[9]=card_num1[9]-39; Image9->Visible=true; ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true); } card_num1[2]=random_num(); while(card_num1[2]==card_num1[8] || card_num1[2]==card_num1[9]||card_num1[2]==card_num1[1]) { card_num1[2]=random_num(); } if(card_num1[2]>=1 && card_num1[2]<=13) { card_num[2]=card_num1[2]; Image2->Visible=true; ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true); } else if(card_num1[2]>=14 && card_num1[2]<=26) { card_num[2]=card_num1[2]-13; Image2->Visible=true; ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true); } else if(card_num1[2]>=27 && card_num1[2]<=39) { card_num[2]=card_num1[2]-26; Image2->Visible=true; ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true); } else { card_num[2]=card_num1[2]-39; Image2->Visible=true; ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true); }

你可以利用sleep或是用一個Timer來控制發牌的時間，還有請你把你的程式碼用縮排的方式排版，不然蠻難閱讀的

sorry, 忘了縮排,直接copy 忘了修改 我有試過用sleep來做 但是似沒有作用, 另外timer也試過 可是不太了解如何控制timer,牌反而停不起來,一直發 可能是我不太會用sleep和timer... 是不是可以詳細說明一下這二程的寫法呢 感激不盡

如果你是透過button來觸發事件，記得先把Timer的Enabled改成false 在button的事件裡面再設成Timer->Enabled=true;

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   發牌程式
}

發完牌後把Timer->Enabled=false; 發牌的時間可以由Timer->Interval來調整，若Timer->Interval=1000表示每1秒跑一次。你再試試看吧

謝謝唷< > 我試試看< >

何不用Thread ? 比Timer還好用. 寫程式與攝影一樣重要