判断数组的数据类型（5.高级数据类型）

举例如下：

type Color = (red, green, blue, yellow, black, white); Ten = 0..10; ColorArray = array[Color] of integer; TenArray = array[Ten] of Color;

数组变量的声明与其他变量的声明相同，如：

var a1, a2: ColorArray; c1, c2: TenArray;

也可以直接声明，如：

var a1, a2: array[0..10] of Real; sa: array[Boolean] of String;

使用数组名加方括号，方括号中是数组元素的下标值来访问。如：

a1[3] sa[True]

在Object Pascal中：

在Object Pascal中，标准函数Low和High，可以返回数组的最小下标值和最大下标值；Length函数可以返回数组的长度。

一维数组的应用示例：产生10个随机数，计算10个随机数的最大值、最小值、和、平均数。界面如下图：

代码如下：

procedure TForm1.Button1Click(Sender: TObject); var a: array[1..10] of integer; i, sum, max, min: integer; mean: Real; begin // 计算按钮单击事件 for i := 1 to 10 do begin randomize; a[i] := random(i * 100); Memo1.Lines.Add(IntToStr(a[i])) end; sum := 0; max := a[1]; min := a[1]; for i := 1 to 10 do begin sum := sum a[i]; if a[i] > max then max := a[i]; if a[i] < min then min := a[i]; end; mean := sum / Length(a); Edit1.Text := IntToStr(sum); Edit2.Text := FloatToStr(mean); Edit3.Text := IntToStr(max); Edit4.Text := IntToStr(min); end; procedure TForm1.Button2Click(Sender: TObject); begin // 清除按钮单击事件 Memo1.Lines.Clear; Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; Edit4.Text := ''; end;

二维静态数组是指一个数组中的元素又是一个一维数组，定义格式：

type <数组类型名> = array[<下标类型1>] of array[<下标类型2>] of <基类型>;

也可以采用如下格式：

type <数组类型名> = array[<下标类型1, 下标类型2>] of <基类型>;

如：

type TIArr = array[1..10] of array[1..10] of integer; TDoubleArr = array[1..10, 1..10] of Real; var i1: TIarr; d1: TDoubleArr; m1: array [1..5,1..10] of real;

示例：输出九九乘法表，界面如下图：

代码如下：

procedure TForm1.Button1Click(Sender: TObject); const SPACE8 = ' '; SPACE10 = ' '; var a: array [1..9] of array [1..9] of integer; i, j: integer; s: string; begin for i := 1 to 9 do for j := 1 to 9 do a[i,j] := 0; for i := 1 to 9 do for j := 1 to i do a[i,j] := i * j; s := SPACE10; for i := 1 to 9 do s := s inttostr(i) SPACE10; Memo1.Lines.Add(s); s := ''; for i := 1 to 9 do begin s := s inttostr(i) SPACE8; for j := 1 to i do begin if a[i,j] = 0 then continue; if a[i,j] < 10 then s := s ' ' inttostr(a[i,j]) SPACE8 else s := s inttostr(a[i,j]) SPACE8; end; Memo1.Lines.Add(s); s := ''; end; end;

多维静态数组的一般定义格式：

type <数组类型名> = array[<下标类型1, 下标类型2, ..., 下标类型n>] of <基类型>;

如：

type TW3 = array of [1..10, 1..10, 1..10] of integer; var a: TW3