function如何返回多个值????

Question

通过参数，传递一个VAR 参数，在函数中赋值

Answer 1

通过全局变量或者VAR参数……或者把你要返回的integer整合到数组里一并返回然后再计算

Answer 2

通过全局变量或者VAR参数……或者把你要返回的integer整合到数组里一并返回然后再计算

Answer 3

function yourFunc(const var a :integer, var b array of integer):integer;
b,yourFunc都可以作为你的返回值
例子：
function myFunc(var b: array of integer):integer;
begin
    b[0]:=0;
    b[1]:=1;
    b[2]:=2;
    b[3]:=3;
    myFunc:=5;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  c:array[0..3] of integer;
begin
   showmessage(inttostr(myFunc(c)));
   showmessage(inttostr(c[2]));
end;