Question

delphi 函数返回值的定义问题

自定义函数 function MyFun(i,j:integer):integer; 后面的INTEGER 的返回值指的是不是结果整形,Myfun是integer类型?i,j只是他的参数? 能具下列子吗

Answer 1

后面的integer定义函数的返回值是整形，括号里的integer定义函数的两个参数i，j为整形。
例如下面函数，求两数之和
function TForm1.MyFun(i, j: integer): integer;
begin
result:= i+j; //返回值为两个参数的和
end;

我们可以在button的单击事件调用它

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:= MyFun(3, 5); //调用函数求3和5的和，结果赋值给整形变量i
showmessage('两数之和为：'+ inttostr(i)); //输出函数计算的结果
end;

Answer 2

楼主：对的。
你可以自己试试么，不用经常去问人的，呵呵。。。
在窗体上加入一个TMemo和一个Tbutton
在Implementations后的部分加入如下代码：

function sum(a,b:integer):integer
begin
a:=a+1;
b:=b+1;
result:=a+b;
end;

procedure tform1.button1click(sender:tobject)
var
a,b:integer;
begin
a:=3;
b:=4;

memo1.lines.add('a+b='+inttostr(sum(a,b)));//输出了一行“a+b=7”
memo1.lines.add('a='+inttostr(a)+',b='+inttostr(b));//输出了一行“a=3,b=4”

end;
还请深刻体会Delphi中的函数与过程参数问题~这是基础问题哈~

Answer 3

//i,j是两个参数，后面是返回值的类型，用result来返回值
//如下：调用是：MyFun(5,6) ,返回值是：6.
function MyFun(i,j: Integer):Integer;
begin
if i > j then
result := i
else
result := j;
end;

Answer 4

function MyFun(i,j:integer):integer;
begin
result:=0;
for ii:=i to j do
result:=result+ii;
end;
这样可以求出自然数列中从i到j这些数的和。