今天在搞一个程序中，要求返回多个值，我知道用数组使用，但以前还没有做过，于是在网上找了一下，得到这个东东，原来自己定义一个类型，然后将函数的类型设为自定义类型就可以了，我定义的是字符串数组，函数返回值当然是多个字符串了，呵呵。
可以函数过程中设定返回数组的大小，SetLength (result,5)就可以。
delphi代码
- 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]);
- end;
