デルファイ

Question

で引数として渡す多次元配列

可能性の重複：
Pass a multidimensional array as a parameter in Delphi

こんにちはすべて、としてここに 同じ質問： Pass a multidimensional array as a parameter in Delphi

が、別の答えを必要とします。

type 
MultiArray = array of array of Integer; 

procedure Foo(a : MultiArray); 
begin 

end; 

procedure Bar(a : array of Integer); 
var i : Integer; 
begin 
    for i in a do WriteLn(IntToStr(i)); 
end; 

const 
    a : array[0..2] of Integer = (1, 2, 3); 
    ma : array[0..1] of array[0..1] of Integer = ((1,2),(3,4)); 
begin 
    Bar(a); 
    Bar([1,2,3]); 
    //Foo(ma); 
end. 

異なるサイズの配列をFooに渡したいとします。このようにできない場合、「回避策」はありますか？

Answer 1

を行うことができます

type 
    TMultiArray: array of array of integer; 

と

procedure Foo(a: TMultiArray); 

私は質問が多次元配列オープンうとしていることを推測した場合。

デルファイには多次元配列のオープンはありません。しかし、動的配列を要素として1次元のオープン配列を作成することができます。ここに例があります：

type 
    TIntArray = array of Integer; 

procedure Test(arr: array of TIntArray); 
begin 
    ShowMessage(IntToStr(arr[1,1])); 
end; 

procedure TForm9.Button5Click(Sender: TObject); 
begin 
    Test([TIntArray.Create(1,2), TIntArray.Create(2,3)]); 
end; 

Answer 2

私はあなたが何をしたいのか得ることはありません。あなたは書く

異なる サイズの配列をFooに渡したいと思います。あなたがそれをしない理由

まあ、それから？

、あなたは

var 
    ShortMultiArray, LongMultiArray, HugeMultiArray: TMultiArray; 

begin 
    SetLength(ShortMultiArray, 10, 10); 
    SetLength(LongMultiArray, 100, 100); 
    SetLength(HugeMultiArray, 1000, 1000); 

    Foo(ShortMultiArray); 
    Foo(LongMultiArray); 
    Foo(HugeMultiArray); 
end;