delphi函数的定义
与过程一样，函数的程序代码也执行特定的工作。它和过程的差别为：函数执行时会返回一个值，而过程则没有返回值。函数可以用来赋给一个属性或变量；也可以出现在表达式中。函数定义也分为函数原型定义和函数体定义两部分。1．函数原型定义语法形式
function<函数名>([<参数名>：<类型>][；<参数名>：<类型>]…)：
<类型>；[指示字]
2．函数体的定义语法形式
函数体的定义放在单元的实现部分，其形式如下：
function<函数名>(<形式参数表>)：<返回值类型>；[指示字]
标号定义部分 ／／对函数中使用的标号用label语句加以说明
常量定义部分 ／／对函数中使用的常量用const语句加以说明
类型定义部分 ／／使用type语句定义自己需要的数据类型
局部变量定义部分 ／／对在函数中使用的所有变量进行说明
过程和函数定义部分／／定义在本函数中使用的过程或函数
begin ·
<语句>．
end．
可以将函数要返回的值赋给result，函数名也可以充当返回值的载体。如果函数体中存在着一些由于判断而产生的分支语句时，要在每一个分支中设置返回值。 ．
例2．11定义一个计算阶乘的函数，可以在主程序中调用，方法同前面建立的程序。
program Project2 1 1；
{$APPTYPE CONSOLE}
{$R术．res}
var x：1．．1 5； ／／因阶乘计算结果很大，故限定一下输入的数的范围
function fact(n：Integer)：Integer；／／函数定义
‘var
re，i：Integer；
begin
re：：1；
for i：=1 to n dore：=re~1；
fact：=re；
end；
begin． ／／主程序开始
writeln(’输人一个1～1 5之间的整数：’)；
readln(x)；
’writeln(fact(x))；
readln；
end．．
程序运行时，输入一个适当的整数，程序中通过调用函数计算出这个整数的阶乘，并输出到屏幕上。
页:
[1]