Delphi 中函数返回值 怎么定义 我刚学这

答案：function Calculation(x: Integer): integer;         //括号里的x:integer 是声明代入的变量类型为int
begin                                                            //括号后面的integer是声明返回值类型为integer
   result:=x+2;             // Result就是返回值,且返回值的类型为integer 
end;  

在别的进程中调用函数时，比如
a:=5;
b:= calculation(a) - 3;     //得到的值是  b= ( a+2 )   -3  ,由于a赋值为5，则最后b的值为4

其他：function GetStudentName(AStudent: Integer): string;
begin
   Result:= '张三';             // Result就是返回值 不需要定义的。
end; delphi 的返回值用函数名或者Result接收，很好很强大~~
仔细揣摩~~ 楼主：对的。
你可以自己试试么，不用经常去问人的，呵呵。。。
在窗体上加入一个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中的函数与过程参数问题~这是基础问题哈~



 

上一个：这是我用delphi编的计算器，有内部错误，求高手帮我看看
下一个：在delphi中选择两个日期，在SQL中的表中查询有没有在日期范围之内，有显示出来 我的代码