承接 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31705 因問問題所以另起新題目    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; jk < i; k ){ int r = random(SL->Count); SG->Cells[j][k] = SL->Strings[r]; SL->Delete(r); } } delete SL; } 唉果然又是錯一堆，要靠 dllee 版主來修正，真的太謝謝 dllee 版主了。 請教一下 1. k 錯打 j 我明白 2. SL->Strings[r]; 應是因為 BCB 沒 Default Property 這個東東罷 ? 3. 在 for() 裡面宣告的 j 是不是只存在於 for 一離開便沒了所以第二個 for 要再宣告 ? 謝謝。

引言: 承接 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31705 因問問題所以另起新題目 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; jk < i; k ){ int r = random(SL->Count); SG->Cells[j][k] = SL->Strings[r]; SL->Delete(r); } } delete SL; } 唉果然又是錯一堆，要靠 dllee 版主來修正，真的太謝謝 dllee 版主了。 請教一下 dllee 版主 1. k 錯打 j 我明白 2. SL->Strings[r]; 應是因為 BCB 沒 Default Property 這個東東罷 ?

是的，BCB 沒有 Default Property。 一定要說清楚、講明白，否則 BCB 不認帳 <>< face="Verdana, Arial, Helvetica">引言: 3. 在 for() 裡面宣告的 j 是不是只存在於 for 一離開便沒了所以第二個 for 要再宣告 ? 謝謝。 是的，在 C 中使用 for 可以直接宣告 index 變數，但這個 index 變數只能給這個 for 使用，也就是說

for(int j=0;j    哇！再過不久 Justmade 版主就可以為廣大的 BCB 用戶服務了，真是太好了     <>沒空更新的網頁...
 href="http://dllee.adsldns.org">http://dllee.adsldns.org  介紹Shells,LiteStep,GeoShell....
        

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

BCB 版高手如雲，用不著小弟啦，只是趁高手們不在時插個花，偷師一下罷了。