Delphi数组及长度

一,定义:

//1. 标准方法：

var

MyArr: array[0..10] of Integer; //定义静态一维数组

//2. 根据预定义类型来声明数组：

type

TMyArr = array[0..10] of Integer; //先定义一个数组类型

var

MyArr: TMyArr; //再定义静态数组

//3. 在非过程区可以直接赋值：

MyArr: array[0..2] of Integer = (11,22,33);

//4. 多维数组：

MyArr: array[0..2, 0..2] of Integer;

begin

MyArr[1,2] := 100;

end

二,求数组长度:

const

arr1: array[0..9] of Integer = (1,2,3,4,5,6,7,8,9,10);

arr2: array[0..1, 0..3] of Integer = ((1,2,3,4), (5,6,7,8));

var

arr3: array[Boolean] of Integer;

arr4: array[Byte] of Integer;

begin

ShowMessage(IntToStr(Length(arr1))); {10}

ShowMessage(IntToStr(SizeOf(arr1))); {40}

ShowMessage(IntToStr(Length(arr2))); {2}

ShowMessage(IntToStr(Length(arr2[0]))); {4}

ShowMessage(IntToStr(Length(arr2[1]))); {4}

ShowMessage(IntToStr(SizeOf(arr2))); {32}

ShowMessage(IntToStr(Length(arr3))); {2}

ShowMessage(IntToStr(SizeOf(arr3))); {8}

ShowMessage(IntToStr(Length(arr4))); {256}

ShowMessage(IntToStr(SizeOf(arr4))); {1024}

end;

总长度:SizeOf(arr) div SizeOf(Integer)

设置长度

var

StrArr: array of String; //动态数组定义时不与维数

begin

SetLength(StrArr,6); //分配6个元素位置: 0-5