幫我解釋一下~~ |
|
jack
一般會員 發表:1 回覆:0 積分:0 註冊:2002-06-04 發送簡訊給我 |
我之前在網上找到一個猜數字遊戲(就是幾A幾B的遊戲) 它裡面有code我不知道是什麼~~ 幫我解釋一下~~
ip:array[1..4] of integer; 然後 procedure KeyInput(); var
jj : integer;
cc : string;
begin
cc := form1.edit1.text; for jj := 1 to 4 do
begin
ip[jj]:=strtoint(copy(cc,jj,1));
end;
end;
上面這一段又是做什麼的??
可以把解釋寄給我嗎??
我的e-mail : jackwu10@hotmail.com
| ||
jieshu
版主 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 我之前在網上找到一個猜數字遊戲(就是幾A幾B的遊戲) 它裡面有code我不知道是什麼~~ 幫我解釋一下~~ ip:array[1..4] of integer; 然後 procedure KeyInput(); var jj : integer; cc : string; begin cc := form1.edit1.text; for jj := 1 to 4 do begin ip[jj]:=strtoint(copy(cc,jj,1)); end; end; 上面這一段又是做什麼的?? 可以把解釋寄給我嗎?? 我的e-mail : jackwu10@hotmail.com這只是把值存到陣列而已,看不出來嗎?要多用點功了,猜數字遊戲是老師的最愛,我的Delphi、Java老師都出過。自己寫出來才有成就感,除非你以後不當程式設計師,不然遇到的難題更多。
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
||
天外來客
初階會員 發表:22 回覆:199 積分:44 註冊:2001-11-27 發送簡訊給我 |
|||
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
我之前在網上找到一個猜數字遊戲(就是幾A幾B的遊戲) 它裡面有code我不知道是什麼~~ 幫我解釋一下~~
ip:array[1..4] of integer;
叫電腦空出四個連續號碼(1到4號)的房間(空間)出來,
每一個空間可以放一個整數值(integer)
房間號碼為ip[1] ip[2] ... ip[4]
然後 procedure KeyInput(); var
jj : integer;
cc : string;
begin
cc := form1.edit1.text; 將edit1輸入的文字字串放入cc變數中 for jj := 1 to 4 do 用jj變數,從1跑到4跑四次迴圈
begin
ip[jj]:=strtoint(copy(cc,jj,1));
copy()函數將 cc 字串從jj位置抓一個byte出來(一個字元)
strtoint()函數 將copy()抓出的字元轉為數字型態
在放入ip[] 陣列中
end;
end;
上面這一段又是做什麼的??
可以把解釋寄給我嗎??
我的e-mail : jackwu10@hotmail.com
以上程式結果就是將輸入在edit1中的四個數字,比如:'5619'
存入ip[]陣列中
ip[1]=5;
ip[2]=6;
ip[3]=1;
ip[4]=9;
這樣懂嗎?
加油,Delphi的新鮮人! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |