請教一個簡單問題:如何對二維陣列直接賦值? |
答題得分者是:Fishman
|
qalin
一般會員 發表:20 回覆:45 積分:13 註冊:2003-07-18 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
qalin
一般會員 發表:20 回覆:45 積分:13 註冊:2003-07-18 發送簡訊給我 |
謝謝hahalin大俠如此神速就回復了.剛才我說的不夠詳細,是這樣的 以下定義是正確的,
-----------------------------------
const
s:array[1..5] of String=('事','件','處','理','過'); //一維陣列可以直接賦值
var
ss:array[1..3,1..5] of String; //二維陣列的定義
-----------------------------------
但在定義的同時對二維陣列直接賦值我就不會了,我想實現類似下面的定義,可是沒有成功:
const
s:array[1..3,1..5] of String=(
'如','何','對','二','維',
'事','件','處','理','過',
'建','立','您','的','程'); //怎樣才能實現象這樣賦值?? 另外,又有如何確定元素(如'您')在陣列中的位置呢?
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi:
procedure TForm1.Button2Click(Sender: TObject); VAR I,J : Integer; begin FOR I := Low(S) TO High(S) DO FOR J := Low(S[I]) TO High(S[I]) DO BEGIN IF (S[I][J]) = '您' THEN ShowMessage(QuotedStr(S[I][J]) '在(' IntToStr(I) ',' IntToStr(J) ')'); END; end;-------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |