delphi 自定义函数无法返回数组。
{$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。
楼下的几位好像编译不通过
最新回答
指尖星光在流浪
2024-07-28 16:34:12
然后函数返回这个数组类型 就可以了.
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 编译通过
梦散蝶逝
2024-07-28 19:03:29
begin
ss[1]:=a div b;
ss[2]:=a mod b;
end;
var 定义的参数可以在函数内改变值，这样也相当于返回值。如果有多个变量要返回用这种方法最好。
搖到月亮灣
2024-07-28 22:27:15
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.
热门标签
