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

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。两者类型不兼容

你可能感兴趣的:(Delphi)