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;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;
---------------------
作者：天使之翼
来源：CSDN
原文：https://blog.csdn.net/z1074971432/article/details/8018873
版权声明：本文为博主原创文章，转载请附上博文链接！