delphi7的function与procedure

资料来源：CSDN中的z1074971432的专栏

Delphi把操作数据的方法分成了两种，

一种是function，另一种是procedure，分别称为“函数”和“过程”，

这二者最大的差别就是函数拥有返回值而过程没有，比如按钮的事件响应过程，这就是一个过程，因此它没有返回值；

而一个简单的函数如求字符串长度的函数Length，它的函数原形为

function Length(S:string):Integer;

这个函数有一个参数S，是您要计算的字符串，它的返回值是一个整数类型，返回字符串的长度。

举一个例子来说吧： 假设需要一个函数GetNum()，它有两个整形参数num1,num2，函数经过计算后返回这两个整数的平均数，

函数如下：

function GetNum(num1:Integer;num2:Integer):Integer;

//函数名var haha:Integer;Begin Result:=(num1+num2)/2;

//将计算结果赋给Result

//GetNum:=(num1+num2)/2;

//也可以这样写 haha:=555;

//如果对函数名赋值，函数就返回，就是说，如果使用GetNum:=(num1+num2)/2;对函数赋值，这句将永远执行不到。

End;

 

函数的声明：function 函数标示符(参数列表):返回值;

函数的定义：function MyFunc(Param1,Param2:Integer;Param3:Real):Integer;

//函数参数间用分号隔开，括号外面的类型是函数的返回类型。

Begin

//函数的定义部分

End;

 

函数返回值有两种赋值方法：

    一种是直接对函数名赋值，另一种是赋值给Result变量。对函数名赋值将导致函数返回。Result是函数特有的局部变量，它的类型与函数的返回类型相同，对它的赋值等于对函数名赋值。与函数名不同，Result变量可以出现在赋值号的右边，如果函数名出现在赋值号的右边时，则意味着递归调用，也就是函数调用它自己。

    另外，对Result赋值不一定导致函数返回，如：

    function MyFunc(s:Integer):Integer;

    Begin Result:=Result*s; //执行赋值但不返回。

         MyFunc:=s*s;//赋值后程序返回。

    End;

 

例2：

    function MyFunc():Integer;

    Begin

        Result:=Result+5; //如果使用MyFunc():=MyFunc()+5;将导致死循环。

    End;

[delphi] view plain copy

function MyFunc(s:Integer):Integer;  

  

    Begin Result:=Result*s; //执行赋值但不返回。   

  

         MyFunc:=s*s;//赋值后程序返回。   

  

    End;例2：  

  

    function MyFunc():Integer;  

  

    Begin   

  

        Result:=Result+5; //如果使用MyFunc():=MyFunc()+5;将导致死循环。  

  

    End;