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

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

delphi代码
  1. type  
  2.         k=array of integer;   
  3.   
  4. function abc(i:integer):k;   
  5. var  
  6.     j:integer;   
  7. begin  
  8.     SetLength (result,5);   
  9.     for j:=0 to i do  
  10.         result[j]:=j;   
  11. end;   
  12.   
  13. procedure TForm1.FormCreate(Sender: TObject);   
  14. begin  
  15.     self.Caption := inttostr(abc(5)[5]);   
  16. end;  
最后修改：2009 年 08 月 16 日
© 允许规范转载
卧槽，全是白嫖客，服务器不要钱吗？