AI摘要
文章介绍了如何在Delphi程序中通过自定义类型和数组来实现函数返回多个值。首先定义一个类型，然后将函数的类型设置为这个自定义类型。在函数中，可以使用SetLength来设定返回数组的大小。文章提供了一个示例代码，展示了如何定义一个返回整数数组的函数，并在FormCreate事件中调用该函数，将返回的数组值用于设置窗体标题。
文章介绍了如何在D
今天在搞一个程序中，要求返回多个值，我知道用数组使用，但以前还没有做过，于是在网上找了一下，得到这个东东，原来自己定义一个类型，然后将函数的类型设为自定义类型就可以了，我定义的是字符串数组，函数返回值当然是多个字符串了，呵呵。
可以函数过程中设定返回数组的大小，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;