各位大哥~~請問一下 小弟想做一個賓果遊戲 new一個動態二維陣列ary[x][y] 且裡面的值為1~(x*y) 但小弟要讓裡面的值為亂數產生且不重覆 還要讓讓陣列裡的值很均勻在不同的位置 小弟想出來的方法都有ｂｕｇ不知各位大大有什麼方法可以做 教一下小弟 謝謝！！！

這是小弟寫的程式 void __fastcall TForm1::Button1Click(TObject *Sender) {   int a=StrToInt(Edit1->Text),b=0;   int **ary;   ary=new int*[a];   for(int i=0;iCells[i][j]=IntToStr(ary[i][j]); } } for(int i=0;iColCount=StrToInt(Edit1->Text); sg->RowCount=StrToInt(Edit1->Text); }

沒學過 BCB 也沒 BCB 來 Test 亂貼 BCB 程式系列 II 看了你的問題後寫了一個 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int i=StrToInt(Edit1->Text); TStringList* SL = new TStringList(); for (int j=0; j < i * i; j ){ SL->Add(IntToStr(j 1)); } for (j=0; j < i; j ){ for (int k=0; j < i; k ){ int r = Random(SL->Count); SG->Cells[j][k] = SL[r]; SL->Delete(r); } } delete SL; } void __fastcall TForm1::Edit1Change(TObject *Sender) { sg->ColCount=StrToInt(Edit1->Text); sg->RowCount=StrToInt(Edit1->Text); } 修正錯誤,不知還有多少錯 發表人 -

修正版來囉  < class="code"> //---------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { int i=StrToInt(Edit1->Text); TStringList* SL = new TStringList(); for (int j=0; j < i * i; j ){ SL->Add(IntToStr(j 1)); } for (int j=0; j < i; j ){ for (int k=0; k < i; k ){ int r = random(SL->Count); SG->Cells[j][k] = SL->Strings[r]; SL->Delete(r); } } delete SL; } //---------------------------------------------------------------------------- void __fastcall TForm1::Edit1Change(TObject *Sender) { SG->ColCount=StrToInt(Edit1->Text); SG->RowCount=StrToInt(Edit1->Text); } //---------------------------------------------------------------------------- 本來想加上修改的標示 可是...在 〔code〕內可能不行... 就請 Justmade 版主自行比較好囉 <>沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2003/06/04 22:55:15

------
http://www.ViewMove.com

請問一下~~如果不要用StringList 那該怎麼做呢~~~

引言: 請問一下~~如果不要用StringList 那該怎麼做呢~~~

插花一下 如果不用StringList, 那也要使用陣列之類的儲存方式來儲存數字 不然就要每產生一次亂數就和既有的表格比對是否重複<--這樣會花比較多時間

引言: 請問一下~~如果不要用StringList 那該怎麼做呢~~~

用 Array 用 Set 等也可以但比較煩 如用 Array 1. 你也要像用 StringList 一樣先埴入所有可能的數值 2. 之後 Random Index 用 Array 取值，檢查是否大過 0 3. 若大過 0 即該數值未被取用，可放在 StringGrid 並將值設為 0 4. 若等於 0 即該數值已被取用重新 Random 這不是比較麻煩嗎? 其實我看完你的題目因為是BCB的最初沒打算 Post 只是想想，而且也是想用 Arry 做但覺煩，突然想起可用 TStringList 寫出又簡單又快的 Code，所以才會 post, 看來還是不合意< > 看來以後應少些花這種時間< >

引言: 請問一下~~如果不要用StringList 那該怎麼做呢~~~

除非您認為用 TStringList 的速度不能滿足您的需求，不然，用內建的元件可以省比較多的開發時間。 如 artist1002 所說，自己寫的話，就要比對，去除等等，如果寫得不好，執行速度可能比 TStringList 還慢，當然，如果寫得好，一定可以比 TStringList 快 <>沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

中午休息實在太無聊了, 寫寫看動態陣列的方式 參考了Justmade兄的程式碼和建議 如下

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i=StrToInt(Edit1->Text);
//  TStringList* SL = new TStringList();
  Variant V(OPENARRAY(int,(0,i*i-1)),varInteger);
  int tmp;
  for (int j=0; j < i * i; j  ){
      tmp=j   1;
      V.PutElement(&tmp, j);
  }      for (int j=0; j < i; j  ){
    for (int k=0; k < i; k  ){
      int r = random(i * i);
      if (V.GetElement(r)==0){
        k--;
        continue;
      }
      SG->Cells[j][k] = IntToStr(int(V.GetElement(r)));
      tmp=0;
      V.PutElement(&tmp, r);
    }
  }
}
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
   SG->ColCount=StrToInt(Edit1->Text);
   SG->RowCount=StrToInt(Edit1->Text);
}

中午休息實在太無聊了, 寫寫看動態陣列的方式 參考了Justmade兄的程式碼和建議 如下

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i=StrToInt(Edit1->Text);
  Variant V(OPENARRAY(int,(0,i*i-1)),varInteger);
  int tmp;
  for (int j=0; j < i * i; j  ){
      tmp=j   1;
      V.PutElement(&tmp, j);
  }      for (int j=0; j < i; j  ){
    for (int k=0; k < i; k  ){
      int r = random(i * i);
      if (V.GetElement(r)==0){
        k--;
        continue;
      }
      SG->Cells[j][k] = IntToStr(int(V.GetElement(r)));
      tmp=0;
      V.PutElement(&tmp, r);
    }
  }
}
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
   SG->ColCount=StrToInt(Edit1->Text);
   SG->RowCount=StrToInt(Edit1->Text);
}

給 mismmx 兄:如果你要儲存產生出來的二維陣列也可以使用這樣的方式來動態產生陣列儲存

Variant V(OPENARRAY(int,(0,x-1,0,y-1)),varInteger);

其中x,y是陣列維度大小 發表人 - artist1002 於 2003/06/06 13:31:40

哈哈，又學到 OpenArray 了 (但我沒BCB學到也沒大用< >)。 剛又有一個想法原理差不多但不用中介儲存 不知程式碼又是不是一大堆錯< >

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i=0; i < SG->RowCount; i  )
    SG->Rows[i]->Clear(); //清空所有 SG 資料
  int i=StrToInt(Edit1->Text);
  for (int z=0; z < i * i; z  ){
    int j = Random(i);
    int k = Random(i);
    if (SG->Cells[j][k] <> ''){
      z--;
      continue;
    }
    SG->Cells[j][k] = IntToStr(z);
  }
}

清空SG資料程式碼來自包子/dllLee 的解答 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31758 發表人 - Justmade 於 2003/06/06 14:20:09

非常感謝Justmade，dllee，artist1002大大的回答 由其是artist1002大大使小弟又學到variant的用法 但我看了artist1002及Justmade兩位大大的程式後 又讓小弟感到很奇怪的地方就是 假設這個陣列很大如ary[1000][1000] 那麼在填值快結束剩下幾個時會不會因為random的關系 而跑得很慢或者是進入假無窮回圈呢??? 希望個位大大不會覺得小弟很煩替小弟解決一下困惑 謝謝！！！

會丫所以我一開始便用 StringList 又簡單又完全不會有這個問題

Justmade大大你好~~ 小弟下載大大用Delphi寫的程式 可是小弟好像發現一個bug就是剛開始時都會一樣的陣列排列方式也 好像是亂數種子的問題 只是小弟不太會用亂數，不知道是不是這個問題

忘記了這點(我極少用 Random) 在 最前加一句 : Randomize; 就好。

to Justmade

    if (SG->Cells[j][k] <> '')

應為

    if (SG->Cells[j][k] != "")

看了那麼多種方法（都不是我提的，但分數卻給了我 ），那我也來提一個，應該比 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int i=StrToInt(Edit1->Text); int *IArray=new int[i*i]; for (int j=0; j < i * i; j ){ IArray[j]=j 1; } int iCount=i*i; for (int j=0; j < i; j ){ for (int k=0; k < i; k ){ int r = random(iCount); SG->Cells[j][k] = IntToStr(IArray[r]); IArray[r]=IArray[--iCount]; } } delete [] IArray; } 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com