請教一個簡單問題:如何對二維陣列直接賦值? 如 s:array[1..3,1..5] of String=( '如','何','對','二','維', '事','件','處','理','過', '建','立','您','的','程'); 使結果 s[1][1]='如' s[2][1]='事' s[3][1]='建' ... 有如何確定元素(如'您')在陣列中的位置呢? 發表人 -

引言: 請教一個簡單問題:如何對二維陣列直接賦值? 如 s:array[1..3,1..5] of String=( '如','何','對','二','維', '事','件','處','理','過', '建','立','您','的','程'); 使結果 s[1][1]='如' s[2][1]='事' s[3][1]='建' ...

static array 二維的宣告可以參考如下 array[1..3] of array[1..5] of string

謝謝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=( '如','何','對','二','維', '事','件','處','理','過', '建','立','您','的','程'); //怎樣才能實現象這樣賦值?? 另外,又有如何確定元素(如'您')在陣列中的位置呢?

Hi:    

  S : Array[1..3,1..5] OF String = (('如','何','對','二','維'),
                                    ('事','件','處','理','過'),
                                    ('建','立','您','的','程'));

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

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