二维数组

Posted 2020-08-20 CodeSkill

1、

　　小结：(1)、ii[x][y] ：其中x表示 哪一行，y表示 哪一列

　　　　　(2)、动态非矩阵 二维数组 ==> 还是 少用(或者不用)为好...

2、测试代码：

procedure TForm1.Button3Click(Sender: TObject);
var ii3 :array[0..1, 0..2] of Integer;
begin
  Memo1.Lines.Add(‘‘);
  Memo1.Lines.Add(‘静态矩阵 二维数组 :‘);

  Memo1.Lines.Add(IntToStr(Integer(@ii3[0,0])));
  Memo1.Lines.Add(IntToStr(Integer(@ii3[0][1])));
  Memo1.Lines.Add(IntToStr(Integer(@ii3[0][2])));

  Memo1.Lines.Add(IntToStr(Integer(@ii3[1][0])));
  Memo1.Lines.Add(IntToStr(Integer(@ii3[1][1])));
  Memo1.Lines.Add(IntToStr(Integer(@ii3[1][2])));
end;

procedure TForm1.Button4Click(Sender: TObject);
var ii4 :array of array of Integer;
begin
  Memo1.Lines.Add(‘‘);
  Memo1.Lines.Add(‘动态矩阵 二维数组 :‘);
  SetLength(ii4, 2, 3);

  Memo1.Lines.Add(IntToStr(Integer(@ii4[0, 0])));
  Memo1.Lines.Add(IntToStr(Integer(@ii4[0][1])));
  Memo1.Lines.Add(IntToStr(Integer(@ii4[0][2])));

  Memo1.Lines.Add(IntToStr(Integer(@ii4[1][0])));
  Memo1.Lines.Add(IntToStr(Integer(@ii4[1][1])));
  Memo1.Lines.Add(IntToStr(Integer(@ii4[1][2])));
end;

procedure TForm1.Button5Click(Sender: TObject);
var ii5 :array of array of Integer;
begin
  Memo1.Lines.Add(‘‘);
  Memo1.Lines.Add(‘动态非矩阵 二维数组 :‘);
  
  SetLength(ii5, 2);
  SetLength(ii5[0], 3);
  Memo1.Lines.Add(IntToStr(Integer(@ii5[0,0])));
  Memo1.Lines.Add(IntToStr(Integer(@ii5[0][1])));
  Memo1.Lines.Add(IntToStr(Integer(@ii5[0][2])));
  Memo1.Lines.Add(IntToStr(Integer(@ii5[1][0])));

  Memo1.Lines.Add(‘‘);
  SetLength(ii5[1], 4);
  Memo1.Lines.Add(IntToStr(Integer(@ii5[1][0])));
  Memo1.Lines.Add(IntToStr(Integer(@ii5[1][1])));
  Memo1.Lines.Add(IntToStr(Integer(@ii5[1][2])));
end;

　　2.1、输出：

静态矩阵 二维数组 :
1635692
1635696
1635700
1635704
1635708
1635712

动态矩阵 二维数组 :
4728508
4728512
4728516
4728532
4728536
4728540

动态非矩阵 二维数组 :
4728508
4728512
4728516
0

4728572
4728576
4728580

 

3、