Question

delphi函数返回值能不能为数组

Answer 1

turbo pascal 是不能返回数组的。

但 delphi pascal 进行了扩展，可以返回数组，例如：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
	intarray=array[1..10] of integer;
var
	a,b:intarray;
  i,n:integer;

function returnar(a:intarray;n:integer):intarray;
var	i,t:integer;
begin
	for i:=1 to n div 2 do begin
		t:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=t;
	end;
	returnar:=a;
end;

begin
	n:=10;
	for i:=1 to n do a[i]:=i;
	b:=returnar(a,10);
	for i:=1 to n do write(b[i]:6);
  readln;
end.