从 Delphi 4 开始,Delphi 支持动态数组。您可以在运行时修改它们的大小,它们将以旧大小保留您存储在其他元素中的数据。它们可以保存任何同类类型的元素,包括记录和其他数组。您可以像声明普通的“静态”数组一样声明动态数组,但只需省略数组边界:
var
ArthurArray: array of TForm;
尽管静态数组允许您指定下限和上限,但动态数组的下索引始终为零。高指数由下式给出High
函数,它总是返回比数组长度减一的值。对于任何动态数组x
, High(x) = Length(x)-1
.
任何代码(包括本地过程)都可以访问全局变量。
动态数组类型的全局变量将被初始化为empty大批。它的长度将为零并且High
对该数组的调用将为-1。Low
该数组仍将返回零。
您可以随时调整动态数组的大小。使用SetLength
函数,就像处理字符串一样:
var
NumElements: Integer;
begin
NumElements := GetNumberOfArthurForms();
SetLength(ArthurArray, NumElements);
end;
如果你有一个多维数组,你可以在循环中设置它们的长度:
var
matrix: array of array of Double;
i: Integer;
begin
SetLength(matrix, height);
for i := 0 to height - 1 do
SetLength(matrix[i], width);
end;
有一个快捷方式可以一次性设置所有内部数组的长度:
begin
SetLength(matrix, height, width);
end;
就像我提到的,动态数组在调整它们的大小时会保留它们的旧值:
var
data: array of string;
begin
SetLength(data, 2);
data[1] := 'foo';
SetLength(data, 20);
Assert(data[1] = 'foo');
end;
但如果你shorten在数组中,位于新的最后一个元素之外的任何元素都将永远消失:
begin
SetLength(data, 20);
data[15] := 'foo';
SetLength(data, 2);
// data[15] does not exist anymore.
SetLength(data, 16);
writeln(data[15); // Should print an *empty* line.
end;
我上面的演示使用了字符串。字符串在 Delphi 中是特殊的;它们由编译器通过引用计数进行管理。因此,字符串类型的新动态数组元素被初始化为空。但如果我使用整数,则无法保证新元素的值。它们可能为零,但也可能是其他任何值,就像独立局部变量的初始值一样。
据我所知,Delphi 7 帮助文件非常好。请阅读有关动态数组的更多信息。您可以在 Delphi 安装中提供的整个 VCL 和 RTL 源代码以及过去 10 年中生成的几乎所有 Delphi 代码示例中找到它们的使用演示。