函数返回多个值（数组）

今天在搞一个程序中，要求返回多个值，我知道用数组使用，但以前还没有做过，于是在网上找了一下，得到这个东东，自己定义一个类型，然后将函数的类型设为自定义类型就可以了，我定义的是字符串数组，函数返回值当然是多个字符串了，呵呵。

可以函数过程中设定返回数组的大小，SetLength (result,5)就可以。

 

type   
        k=array of integer;    
   
function abc(i:integer):k;    
var   
    j:integer;    
begin   
    SetLength (result,5);    
    for j:=0 to i do   
        result[j]:=j;    
end;    
   
procedure TForm1.FormCreate(Sender: TObject);    
begin   
    self.Caption := inttostr(abc(5)[5]);//注意这里abc(5)[5]直接用的，这种方法 真不错    
end;