Delphi中沒有vector怎麼來代替這個

例一：  
  動態數組  
  var   fields:   array   of   integer;  
   
  Setlenght(fields)//定義長度  
   
   
   
  例二：  
  var  
  button:array   of   TButton;  
  i,rows:integer;  
  begin  
  rows:=10;  
  SetLength(button,rows);  
  for   i:=0   to   Rows-1   do  
      begin  
              button[i]:=TButton.Create(self);  
              with   button[i]   do  
                begin  
                  Parent:=form1;     //此行必不可少,否則控件在屏幕顯示不出  
                  top:=i*40;  
                  width:=60;  
                  height:=20;  
                  left:=50;  
                end;  
      end;  

 

TStringList