Delphi数组的使用

最新推荐文章于 2024-06-21 13:31:17 发布

*时光

最新推荐文章于 2024-06-21 13:31:17 发布

阅读量239

点赞数 1

分类专栏： Delphi 文章标签：开发语言

本文链接：https://blog.csdn.net/weixin_46297949/article/details/135985535

版权

Delphi 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

本文介绍了如何在Delphi中使用一维数组（如`Array[0..3]ofInteger`）、二维数组（如`Array[0..3,0..3]ofInteger`）以及动态数组（`ArrayofInteger`）进行编程，展示了数组的定义、赋值和输出的方法。

摘要由CSDN通过智能技术生成

一维数组

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:Array[0..3] of Integer;   //创建一个数组
  i:Integer;
begin
  a[0]:=1;
  a[1]:=2;
  a[2]:=3;
  a[3]:=4;
  i := 0;
  for I := Low(a) to High(a) do  //LOW数组中最小的下标  HIGH数组中最大的下标
  Writeln(a[i]);

  Readln;    //卡住控制台不关闭
end.

二维数组

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:Array[0..3,0..3] of Integer;  //二维数组,多加,就可以多维
  b:Array[1..3]of Array[1..3] of Integer; //二维数组第二种写法
  c:Array[0..3,0..3,0..3,0..3,0..3] of Integer; //演示个多维数组写法
  i:Integer;
  j:Integer;
  k:Integer;
begin
  k:=0; //i,j在for循环初始化所以这里只初始化k
  for i := Low(a) to High(a) do begin        //LOW数组中最小的下标  HIGH数组中最大的下标
     for j := Low(a) to High(a) do begin     //双层for循环给二维数组赋值
          inc(k);   //k=k+1
          a[i][j]:=k; //赋值
          Write(a[i][j] , ' '); //直接输出
     end;
      write(#13#10); //换行
  end;

  Readln;    //卡住控制台不关闭
end.

动态数组

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type //先声明
  b = Array of string;
var
  a:Array of Integer; //不加[]就是动态数组
  c:b; //这样c获取b 也是动态数组，就是写两行了，先声明
  i:Integer;
begin
  i := 0;
  setlength(a,10); //设置长度，其实a的写法没什么意义主要看方法2
  for i := Low(a) to High(a) do    //赋值方法1
    a[i] := i + 1;
  c:=b.create('1','2','3');  //赋值方法2 方法2可不设置长度
  i := 0;
  for I := Low(a) to High(a) do  //LOW数组中最小的下标  HIGH数组中最大的下标
  Writeln(a[i]);
  Readln;    //卡住控制台不关闭
end.