Delphi数组详解（整理）

天津强哥 發表於 2020-4-5 22:31:00

数组是可以通过索引来引用的同类型数据的列表。按照存储空间的获取方式，Delphi支持的数组类型有两种，即静态数组和动态数组。所谓静态数组就是在声明时就已经确定大小的数组类型。
数组的下标一般下界值都为0，不建议使用非0下标。
静态数组：
<div class="cnblogs_code">
<pre> 1 标准方法：
 var MyArr: array[0..10] of Integer; //定义静态数组</pre>
</div>
<div class="cnblogs_code">
<pre> 2 可以使用非0下标：
 var MyArr: array[9..10] of Integer; //不能提倡，这样不容易与系统函数沟通</pre>
</div>
<div class="cnblogs_code">
<pre> 3 根据预定义类型来声明数组：
 type TMyArr = array[0..10] of Integer; //先定义一个数组类型 var MyArr: TMyArr; //再定义静态数组</pre>
</div>
<div class="cnblogs_code">
<pre> 4 在非过程区可以直接赋值：
 var MyArr: array[0..2] of Integer = (11,22,33);//过程中无法直接赋值操作</pre>
</div>
<div class="cnblogs_code">
<pre> 6 多维数组：
 var MyArr: array[0..2, 0..2] of Integer; begin //使用 MyArr := 100; end;</pre>
</div>
<div class="cnblogs_code">
<pre> 7 根据子界定义数组：
 type TRange = 0..10; var MyArr: array of Integer;</pre>
</div>
<div class="cnblogs_code">
<pre> 8 根据枚举定义数组：
 type TEnums = (Enum1,Enum2,Enum3); 　　var MyArr: array of string; 　　begin MyArr := '万一';//Enum1,Enum2,Enum3就相当于普通数组的下标 　　ShowMessage(MyArr); //万一 end;</pre>
</div>
<div class="cnblogs_code">
<pre>9 根据其他类型定义数组：
var MyArr: array of Char; begin MyArr[255] := #65; ShowMessage(MyArr[255]); //A end; 
应尽量不使用内建类型，可以新建类型：
type TNewByte = Byte; var MyArr: array of Char; begin MyArr[255] := #65; ShowMessage(MyArr[255]); //A end; 
也可以使用类型别名：
type TChar = type Char; var MyArr: array of Byte; begin MyArr['C'] := 255; ShowMessage(IntToStr(MyArr['C'])); //255 end; 
同时定义类型:
type MyRec = record s: string; r: Real; b: Byte; end; var Arr1: array[0..100] of MyRec; Arr2: array[0..100] of record s: string; r: Real; b: Byte; end;
可以直接这样定义：
Arr3: packed array[0..100] of MyRec; //压缩数组定义, 好像没有区别?</pre>
</div>
<div class="cnblogs_code">
<pre> </pre>
</div>
动态数组：
动态数组是指其大小在声明时不能确定的数组，动态数组的大小在使用时确定。分配空间后可以使用 nil 进行释放空间。一般离开数组作用域系统会自动释放。
由于动态数组不用提前声明数组长度，所以一般动态数组下标由 0 开始。
<div class="cnblogs_code">
<pre>1 常规定义： var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr := '万一';</pre>
</div>
<div class="cnblogs_code">
<pre>2 指针复制操作与Copy函数：
 var
Arr1,Arr2: array of Integer;
 begin
 SetLength(Arr1,6);
 Arr1[5] := 100;
 Arr2 := Arr1;//指针赋值操作
ShowMessage(IntToStr(Length(arr2)));//arr2引用了arr1，所以arr2长度也为6.
ShowMessage(IntToStr(arr2[5]));//arr2引用了arr1，结果100
Arr2[5]:= 99; //动态数组也是一个指针，改变其中一个数组元素值，另外一个也会改变
ShowMessage(IntToStr(arr1[5]));//结果99
arr2 := nil;
 ShowMessage(IntToStr(arr1[5]));//释放其中一个数组，另外一个没有影响
Arr2:= Copy(arr1);//Copy函数是将两个相同类型的数组进行赋值，此时复制的是所有数组元素
ShowMessage(IntToStr(arr2[5]));//结果99，这种操作与指针不同，两个数组之间没有联系。</pre>
</div>
<div class="cnblogs_code">
<pre>3 动态多维数组:
var Arr: array of array of Integer; begin SetLength(Arr,5,5); //分配空间 Arr := 100; //赋值 ShowMessage(IntToStr(Arr)); //取值</pre>
</div>
 
<div class="cnblogs_code">
<pre>4 变体数组：
var
Arr: array[0..3] of Variant;// Variant为变体类型关键字
begin
Arr[0] := 123;
Arr[1] := 'wy';
Arr[2] := True;
Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组
ShowMessage(Arr[0]); //123,不需要转换
ShowMessage(Arr[1]); //wy
ShowMessage(Arr[2]); //True
ShowMessage(Arr[3][1]); //wanyi
end;</pre>
</div>
<div class="cnblogs_code"> </div>
<div class="cnblogs_code">
<pre> 5 枚举数组：
procedure TForm1.Button1Click(Sender: TObject);
type
TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); //定义枚举}
var
weekArr: array of string; //定义数组数组元素是String类型
myEnum: TMyEnum; //定义枚举变量}
begin //数组赋值}
weekArr := '星期一';
weekArr := '星期二';
weekArr := '星期三';
weekArr := '星期四';
weekArr := '星期五';
weekArr := '星期六';
weekArr := '星期天';
ShowMessage(weekArr); //星期天}
//遍历数组必须定义myEnum: TMyEnum枚举变量，因为TmyEnum是数组维数，也就是下标 
for myEnum := Low(weekArr) to High(weekArr) do
begin
ShowMessage(weekArr); //将分别显示: 星期一 ... 星期天}
 end;
end; 数组定义时,如果唯数是以枚举开始的话,编译指令是从Low()..High()  所以带有负数值的枚举用来定义数组常量会出错.  Type  TErrorCode = (ecNOERROR = 0,  ecDisConnect = -1,  ecOtherError = -2);  Const  ErrorLabels : array of String =(  '无错误' , '断开连接' , '其他错误');  procedure TForm1.FormCreate(Sender: TObject);  begin  Caption := ErrorLabels;  end;  Caption得到的是:无错误,那是因为Low(TErrorCode)=ecOtherError  High(TErrorCode)就是ecNOERROR  </pre>
</div>
 
<div class="cnblogs_code">
<pre> 6 子界数组： procedure TForm1.Button1Click(Sender: TObject);
 type
 TABC = 'A'..'G'; //定义子界}
var
abcArr: array of Integer; //定义数组数组元素是 Integer类型
abc: TABC; //定义子界变量}
begin //数组赋值}
abcArr['A'] := 11;
 abcArr['B'] := 22;
 abcArr['C'] := 33;
 abcArr['D'] := 44;
 abcArr['E'] := 55;
 abcArr['F'] := 66;
 abcArr['G'] := 77;
 ShowMessage(IntToStr(abcArr['G'])); //77
 //遍历数组必须定义子界变量abc: TABC 因为 TABC 是数组维数，也就是下标
for abc := Low(abcArr) to High(abcArr) do
begin
 ShowMessage(IntToStr(abcArr)); //11 22 33 44 55 66 77
end;
 end;
 end.</pre>
</div>
 
<div class="cnblogs_code">
<pre>常规：
procedure TForm1.Button1Click(Sender: TObject);
const
//因为过程中var无法直接赋值，所以需要const
arr: array[0..1] of Char = ('A','B');
begin
ShowMessage(arr); //AB
ShowMessage(IntToStr(Length(arr))); //2
end; 
数组的其他定义方式：
procedure TForm1.Button1Click(Sender: TObject);
const
arr: array of Char = ('A','B');
begin
ShowMessage(arr); //AB
ShowMessage(IntToStr(Length(arr))); //2
//访问元素
ShowMessage(arr); //A
ShowMessage(arr); //B
//也可以这样访问
ShowMessage(arr); {A}
ShowMessage(arr); {B}
//但不能这样访问} // ShowMessage(arr); // ShowMessage(arr);
//但可以变通一下}
ShowMessage(arr); //A
ShowMessage(arr); //B
end;

procedure TForm1.Button1Click(Sender: TObject);
const
arr: array of Integer = ( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
21,22,23,24,25,26,27,28,29, 30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,
47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,
73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,
99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,
119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,
139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,
159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,
179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,
199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,
219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,
239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,256);
begin
ShowMessage(IntToStr(arr)); //1
ShowMessage(IntToStr(arr)); //256
ShowMessage(IntToStr(Length(arr))); //256
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
const
BoolStr: array of string = ('False', 'True');//过程区直接赋值，所以需要Const 关键字
var
b: Boolean;
begin
b := True;
ShowMessage(BoolStr); {True}
b := not b;
ShowMessage(BoolStr); {False}
end;
end.</pre>
</div>
 
<div class="cnblogs_code">
<pre> 动态数组一般是不需要手动释放的, 如果需要.：
var arr: array of Integer; begin {设置动态数组维数}
SetLength(arr,10);
arr := nil;//释放方法一 
SetLength(arr, 0);//释放方法二
Finalize(arr); //释放方法三 
end;</pre>
</div>
 
注：整理于https://www.cnblogs.com/ahroot/archive/2011/10/28/2227585.html
也可学习https://www.cnblogs.com/huangjacky/archive/2009/12/21/1628833.html

</div>
<div id="MySignature" role="contentinfo">
编程语言无所谓高低级，唯适用罢了。语言结构再天花乱坠，富丽堂皇终不过CPU上的0和1。 
来源：https://www.cnblogs.com/fansizhe/p/12639586.html

頁: [1]

琼殿技术论坛's Archiver

Delphi数组详解（整理）