delphi 如何单独给一维数组的某个列赋值

a[1]:=str1;
a[2]:=str2;
就这样- -

如果要循环的话，必须把值先添加到集合里面，比如用 StringsList;

s:=TStingsList.Create;
s.add(str1);
s.add(str2);
for i:=1 to 2 do
begin
a[i]:=s[i-1];
end;

var
a : Array[0..9] of string;
str1, str2: string;
i: integer;
begin
str1 := 'abcde';
str2 := 'ymmda';

case i of
0:
begin
a[i] := str1;
end;
1:
begin
a[i] := str2;
end;
end;
end;

const
arr1:array[0..4] of string=('abcde','ymmda','2','3');
var
i1:integer;
s:TStringList;
begin
s:=TStringList.Create;
for i1:=low(arr1) to high(arr1) do
begin
s.Add(arr1[i1]);
end;