过程无返回值,函数有返回值。
procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
如上例所示,过程声明和定义中,多个参数是用分号隔开的,但在调用时是用逗号隔开的 。eg:
MyProc(3, 4, 'me', 3.14);
上例中省略了最后一个参数,当指定一个参数的缺省值后,其后的所有参数都必须指定一个缺省值,如上面的声明中的参数 p 和 q 。或者说,应该把所有指定默认值的参数放在参数列表的后面。
Delphi函数的值有两种方式返回,第一:把值赋给函数名;第二:把值赋给Result。而Result实际上是函数名的一个别名,同时它也是每一个函数内部自动隐含的局部变量,其类型跟函数的返回类型相同。
一般情况下,使用Result方式返回函数值,而不用函数名来返回。因为在调用一个无参数的函数时只写函数名就可以调用,不像C语言等其它语言一样即使无参数也要在函数名后加上括号,这样很容易不小心就写成递归调用,进入死循环。另外,有时候在coding过程中可能需要修改已经定下的函数名,此时如果用Result返回函数值的话就不需要再修改函数体了。
function Add:Integer;
var
i:Integer;
begin
Result := 0;
for i := 1 to 100 do
Add := Add + i; //死循环
ShowMessage(IntToStr(Result););
end;
需要注意的是,Delphi和其他一些语言不同,它的函数在返回值的时候并不中止函数本身,它总会执行到函数的最后一条语句。如果需要提前退出,可以用 Exit;语句。