在 Delphi 中，可以使用 SetLength 函數來初始化數組，并使用索引對數組進行賦值。
示例代碼如下：
var
myArray: array of Integer;
i: Integer;
begin
// 初始化數組，設置數組長度為 10
SetLength(myArray, 10);
// 使用索引對數組元素賦值
for i := 0 to Length(myArray) - 1 do
begin
myArray[i] := i;
end;
// 打印數組元素
for i := 0 to Length(myArray) - 1 do
begin
WriteLn(myArray[i]);
end;
end;
在上述示例中，首先使用 SetLength 函數初始化了一個長度為 10 的整數數組 myArray。然后使用 for 循環和索引 i 對數組元素進行賦值，賦值為索引 i 的值。最后使用 for 循環打印了數組的元素。
希望可以幫助到您！
