怎样用数组去获取tstringlist的值。

[internetcsdn]

var a: array of string;
list:tstringlist;
begin
list.Add('1');
list.Add('2');
？？？
end;

----------------------------------
实现的效果是：数组a的元素全部来自list；
注：list的列表不定；

[yjs_lh]

setlength(a, list.count)
for i := 0 to list.count -1 do begin
a[i] = list[i];
end;

[zzlingaaa]

setlength(a, list.count);
for i := 0 to list.count - 1 do a[i] := list[i];

[altans]

setlength(a, list.count);
for i := 0 to list.count - 1 do a[i] := list[i];