动态数组参数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;