2次元配列、多次元配列を定義し利用する - Delphi

Delphiで2次元配列や、多次元配列を定義するには次のように記述します。

コード例

procedure TForm1.Button9Click(Sender: TObject);
var
  a:array [0..3,0..1] of Char;
  i,j:integer;
begin
  a[0,0]:='P';
  a[0,1]:='c';
  a[1,0]:='F';
  a[1,1]:='R';
  a[2][0]:='e'; //この書式でもOK
  a[2][1]:='t';
  a[3][0]:='g';
  a[3][1]:='z';

  for i:=0 to Length(a)-1 do begin
    for j:=0 to Length(a[i])-1 do begin
      Memo1.Text := Memo1.Text + a[i,j] + ' ';
    end;
    Memo1.Text:=Memo1.Text + Chr($0D)+Chr($0A);
  end;
end;

実行結果

コード例2

var
  data1:array [0..1,0..3] of integer;
  data2:array [0..1,0..2,0..3 ] of string;
  data3:array [0..1] of [0..2] of string;
begin
  data1 := new int[0,1];
  //data1 := new int[0][1]; //と記述してもよい
  data2 := new int[0,2,1];

  data3[0][0]:=100;
  //data3[0,0]:=100; //と記述してもよい
...
end;

コード例3

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j:integer;
  data:array [0..1,0..3] of integer;
  data2:array [0..1,0..3, 0..2] of integer;
  data3:array [0..1] of array [0..2] of integer;

begin
  data[0,0]:=10;
  data[0,1]:=4;
  data[0,2]:=2;
  data[0,3]:=8;
  data[1,0]:=5;
  data[1,1]:=6;
  data[1,2]:=23;
  data[1,3]:=41;

  for i:=0 to 1 do begin
    for j:=0 to 3 do begin
      Memo1.Text := Memo1.Text + IntToStr(data[i,j])+Chr($09);
    end;
    Memo1.Text := Memo1.Text+Chr($0D)+Chr($0A);
  end;
end;

ネストされた配列を作成する方法はこちら