在Delphi中,可以使用动态数组的SetLength函数来分配数组的内存空间,并使用索引来赋值。以下是一个示例:
var
myArray: array of Integer;
i: Integer;
begin
SetLength(myArray, 5); // 分配数组的内存空间
for i := 0 to High(myArray) do // 使用索引循环赋值
begin
myArray[i] := i + 1;
end;
// 输出数组的值
for i := 0 to High(myArray) do
begin
WriteLn(myArray[i]);
end;
end;
输出结果为:
1
2
3
4
5
在上述示例中,我们首先使用SetLength函数分配了一个长度为5的动态数组myArray的内存空间。然后,使用for循环和索引i循环遍历数组,并将i + 1的值赋给数组的每个元素。最后,我们再次使用for循环遍历数组,并输出每个元素的值。