Delphi函数返回多个值

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

可以函数过程中设定返回数组的大小,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;  
Posted in 软件开发 by 傻猫 at October 11, 2007.
Tags: delphi, 函数, 数组, 字符串

添加新评论