在 delphi （Object Pascal 语言）中，使用 array 关键字进行数组定义。

如果需要定义二维数组可以采取以下定义形式：

一、静态数组定义

静态数组定义，通常用于数组元素的数目确定的情况。定义形式如下：

示例：

1
2
3
4
5
6
7
8
9
10
11
type
  //定义二维数组类型
  TMultiArr = array[1..3,1..3] of string; 
var
  MultiArr: TMultiArr;
   
    //定义 行12*列12 的 Integer 数组
   IntArr: array[1..12] of array[1..12] of Integer;
    
   //定义 行5*列5 的 string 数组
  StrArr: array[1..5,1..5] of string;

 

二、动态数组定义 

动态数组常用于当数组的元素数目不确定的时候，其定义形式如下：

1
2
3
4
  SamArr: array of array of Integer; //定义二维数组，数组元素不确定
 
  type TMessageGrid = array of array of string; //定义二维数组类型，数组元素不确定
  var Msgs: TMessageGrid; //声明一个二维数组类型变量

 

 

 

二维动态数组的元素数目，可以通过 SetLenth 来动态指定，示例代码如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button3Click(Sender: TObject);
type TMultiArr = array of array of string;
var
  a: TMultiArr;
  I, J: Integer;
  s: string;
begin
  SetLength(a, 10);
  for I := Low(a) to High(a) do
  begin
    SetLength(a[I], I);
    for J := Low(a[I]) to High(a[I]) do
      a[I, J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
  end;
  for I := Low(a) to High(a) do
  begin
    s := '';
    for J := Low(a[I]) to High(a[I]) do
      s := s + ' ' + a[I, J];
    Memo1.Lines.Add(s);
  end;
end;

 

代码运行截图：

1，0

2，0　　2，1

3，0　　3，1　　3，2

4，0　　4，1　　4，2　　4，3

5，0　　5，1　　5，2　　5，3

6，0　　6，1　　6，2　　6，3　　6，4　　6，5

7，0　　7，1　　7，2　　7，3　　7，4　　7，5　　7，6

8，0　　8，1　　8，2　　8，3　　8，4　　8，5　　8，6　　8，7

9，0　　9，1　　9，2　　9，3　　9，4　　9，5　　9，6　　9，7　　9，8

 

 

 

 

 

posted @ 2019-08-30 15:05  h2z  阅读(753)  评论(0)  编辑  收藏  举报