动态数组参数SetLength

type  Ta = array of string;  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private  public    procedure proa(var a:Ta);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  a:Ta;  i:Integer;begin  proa(a);  for i:=Low(a) to High(a) do  ShowMessage(a[i]);end;procedure TForm1.proa(var a:Ta);begin  SetLength(a,3);  a[0]:='0';  a[1]:='1';  a[2]:='2';end;