Question

delphi 自定义函数无法返回数组。

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
array1=array[1..2] of integer;

function ndivmod(a,b:integer):array1;

var
x:array1;
begin
x[1]:=a div b;
x[2]:=a mod b;
result:=x
end;

begin
ndivmod(7,3);

ReadLn;
end.

我想让这个函数ndivmod 返回一个 (得数，余数)的数组，为什么不行
另外问一下delphi中有divmod这个函数么
还有可否提供一个delphi的函数速查手册。
以前用python 有divmod。
楼下的几位好像编译不通过

Answer 1

对.先定义一个 数组类型.
然后函数返回这个数组类型 就可以了.

type
TStrArr = array of string;

function strSplit(strSplit,str:string):TStrArr ;
var
sl:TStringList;
I: Integer;
begin
try
sl:=TStringList.Create;
sl.LineBreak:=strSplit;
sl.Text:=str;
SetLength(result,sl.Count);
for I := 0 to sl.Count - 1 do
result[i]:=sl[i];
finally
sl.Free;
end;
end;

这个编译能通过 我一直用的.
delphi2007+xp 编译通过

Answer 2

procedure ndivmod(a,b:integer;var ss:array1);

begin
ss[1]:=a div b;
ss[2]:=a mod b;

end;
var 定义的参数可以在函数内改变值，这样也相当于返回值。如果有多个变量要返回用这种方法最好。

Answer 3

这样可以：

type
Tarray=array[1..2] of integer;

procedure ndivmod(a,b:integer;Var ret:Tarray);
begin
ret[1]:=a div b;
ret[2]:=a mod b;
end;

var ret:Tarray;
begin
ndivmod(7,3,ret);

end.