开放类型参数(开发数组参数)

Delphi 有如下代码

type 
   Ta=array of string; 
 var 
   Form1: TForm1; 
   b:ta; 
 procedure func(a:ta); 
  
 implementation 
  
 {$R *.dfm} 
 procedure func(a:ta); 
 begin 
   showmessage(a[1]); 
   b:=a; 
 end; 
  
 procedure TForm1.Button1Click(Sender: TObject); 
 begin 
   func(['123','asd']); 
 end; 
  

执行Button1Click 过程 提示  ：
  出错：Ordinal type requried

--------------------------------

错误发生在 方法定义的时候
 

    procedure func(a:ta); 
  

应修改为：

    procedure func(a:array of string); 

注意，在Type中声明的叫Dynamic Array，而在函数中的叫Open Array。两者类型不兼容