• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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

一、静态数组定义

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

示例：

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

 

 

 

 

 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
DELPHI7适用的BytesOf和StringOf发布时间：2022-07-18
下一篇：
Delphi中String类型原理介绍发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap