var a: array of string;
  list:tstringlist;
begin  
  list.Add('1');
  list.Add('2');  
  ???
end;----------------------------------
实现的效果是:数组a的元素全部来自list;
注:list的列表不定;