全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:689
推到 Plurk!
推到 Facebook!

圖陣列

尚未結案
rik
一般會員


發表:40
回覆:81
積分:24
註冊:2004-09-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-06 15:52:19 IP:163.13.xxx.xxx 未訂閱
口口口口口口口口口口 口口口口口口口口口口 口口口口口口口口口口 口口口口口口口口口口    假設有4X10 這些圖 這樣就共有40個檔名+40張不同的圖    現在要做的是: 類似 A[i][j]=A[i][j 1] 這種循環動作 但如果直接寫程式讓 (A1_1和A1_2交換) (A1_2和A1_3交換)....一直下去 將頗麻煩 且不實際 請問能給我什麼建議(方法)嗎^^? 此問題也可以看成: [02][08][09][03] [07][14][06][10] 上 [04][13][01][11] 左 右 [15][05][12][ ] 下 這種遊戲 在BCB上最有效的寫法是?? 注意:01~15 皆是圖形0.0
------
時與不時的撿起身旁的拼圖碎片

不懂的部分 半解的部分 就像一塊拼圖
留於腦中 等待拼出完美解答的一天

這就是我的思路 我的創作方法
而我也接受 這作法所帶來的"代價" - 時間
daniel__lee
高階會員


發表:18
回覆:124
積分:113
註冊:2002-11-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-06 22:29:32 IP:218.166.xxx.xxx 未訂閱
直接做移位不就好了嗎? A1->A2 A2->A3 A3->A4....An->An 1 移好之後再把圖一次秀出來 ~ 勿在浮沙上面築高塔 ~
------
~ 勿在浮沙上面築高塔 ~
rik
一般會員


發表:40
回覆:81
積分:24
註冊:2004-09-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-07 14:10:40 IP:163.13.xxx.xxx 未訂閱
引言: 直接做移位不就好了嗎? A1->A2 A2->A3 A3->A4....An->An 1 移好之後再把圖一次秀出來 ~ 勿在浮沙上面築高塔 ~
這樣不還是要打一推字0.0" 如果我要讓An和An 5交換怎麼辦@@" 再打一次0.0? 如果n=1或n=9是不是又要再打一次= ="" 我想要的類似 A[10][5] 這種東西@@" 可以利用A[I][J]方便作業@@" 但是圖片元件 又不能這樣取名字^^" 所以想問有什方法@@?
------
時與不時的撿起身旁的拼圖碎片

不懂的部分 半解的部分 就像一塊拼圖
留於腦中 等待拼出完美解答的一天

這就是我的思路 我的創作方法
而我也接受 這作法所帶來的"代價" - 時間
daniel__lee
高階會員


發表:18
回覆:124
積分:113
註冊:2002-11-10

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-07 14:59:50 IP:61.218.xxx.xxx 未訂閱
那就更簡單了~ 把陣列宣告成 AnsiString A[9][9]; 陣列內容存放圖檔檔名如 G01.BMP G02.BMP .......Gn.BMP 這樣的話A[0][0]="G01.BMP" A[1][0]="G10.BMP"............. 例如要讀A[5][5] 拆一下字串 就會讀到 G55.BMP了 不知道是不是你要的 ~ 勿在浮沙上面築高塔 ~
------
~ 勿在浮沙上面築高塔 ~
rik
一般會員


發表:40
回覆:81
積分:24
註冊:2004-09-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-07 20:35:06 IP:211.76.xxx.xxx 未訂閱
引言: 那就更簡單了~ 把陣列宣告成 AnsiString A[9][9]; 陣列內容存放圖檔檔名如 G01.BMP G02.BMP .......Gn.BMP 這樣的話A[0][0]="G01.BMP" A[1][0]="G10.BMP"............. 例如要讀A[5][5] 拆一下字串 就會讀到 G55.BMP了 不知道是不是你要的 ~ 勿在浮沙上面築高塔 ~
-口- 好奇妙的感覺0.0" 我直接寫成現實範例好了@@" 在一個form內放著 口口口 共9個TImage檔 分別命名為 Image1~Image9 口口口 口口口 顯示起來是 Image1 Image2 Image3 Image4 Image5 Image6 Image7 Image8 Image9 假設裡面的圖示1~8 現在表示為 1 2 3 4 5 6 7 8 現在要開始做事情了 我要全部往下一數字 推進 下來 Image9->Picture=Image8->Picture; Image8->Picture=Image7->Picture; Image7->Picture=Image6->Picture; Image6->Picture=Image5->Picture; Image5->Picture=Image4->Picture; Image4->Picture=Image3->Picture; Image3->Picture=Image2->Picture; Image2->Picture=Image1->Picture; Image1->Visible=false; 我覺得這樣很麻煩@@" 如果是5X10大小 過更大.....會死人QQ" 你的意思是指說? 一開始 (假設A內的資料 已經打好) Image9->Picture=A[2][2]; Image8->Picture=A[2][1]; Image7->Picture=A[2][0]; Image6->Picture=A[1][2]; Image5->Picture=A[1][1]; Image4->Picture=A[1][0]; Image3->Picture=A[0][2]; Image2->Picture=A[0][1]; Image1->Picture=A[0][0]; 現在要開始做動作了 ..........怎麼做啊-口-""" 就算A[][] 內 括弧裡可以用i j 但是.... 名字(Image1~Image9) 還是要乖乖自己打啊QQ" 還是我沒理解你的意思@@?
------
時與不時的撿起身旁的拼圖碎片

不懂的部分 半解的部分 就像一塊拼圖
留於腦中 等待拼出完美解答的一天

這就是我的思路 我的創作方法
而我也接受 這作法所帶來的"代價" - 時間
daniel__lee
高階會員


發表:18
回覆:124
積分:113
註冊:2002-11-10

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-12-07 22:36:15 IP:218.166.xxx.xxx 未訂閱
真的有點受不了你 我寫了一段 class="code"> #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { TPanel *Panel[10]; for(int i=0;i<10;i ) { Panel[i]=new TPanel(this); Panel[i]->Parent=Form1; Panel[i]->Left=i*10; Panel[i]->Top=i*10; } } //--------------------------------------------------------------------------- ~ 勿在浮沙上面築高塔 ~
------
~ 勿在浮沙上面築高塔 ~
rik
一般會員


發表:40
回覆:81
積分:24
註冊:2004-09-24

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-12-08 10:29:43 IP:163.13.xxx.xxx 未訂閱
引言: 真的有點受不了你 我寫了一段 class="code"> #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { TPanel *Panel[10]; for(int i=0;i<10;i ) { Panel[i]=new TPanel(this); Panel[i]->Parent=Form1; Panel[i]->Left=i*10; Panel[i]->Top=i*10; } } //--------------------------------------------------------------------------- ~ 勿在浮沙上面築高塔 ~
因為不懂 所以就繼續問^^" 這樣才不會 在浮沙上面築高塔 ^^"
------
時與不時的撿起身旁的拼圖碎片

不懂的部分 半解的部分 就像一塊拼圖
留於腦中 等待拼出完美解答的一天

這就是我的思路 我的創作方法
而我也接受 這作法所帶來的"代價" - 時間
系統時間:2024-11-23 20:24:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!