函数返回多个值（数组）

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

可以函数过程中设定返回数组的大小，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;