delphi函数的定义

jinyuwei

与过程一样，函数的程序代码也执行特定的工作。它和过程的差别为：函数执行时会返回一个值，而过程则没有返回值。函数可以用来赋给一个属性或变量；也可以出现在表达式中。函数定义也分为函数原型定义和函数体定义两部分。
    1．函数原型定义语法形式
    function<函数名>([[var]<参数名>：<类型>][；[var]<参数名>：<类型>]…)：
<类型>；[指示字]
    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 do  re：=re~1；
    fact：=re；
    end；
    begin．    ／／主程序开始
    writeln(’输人一个1～1 5之间的整数：’)；
    readln(x)；
    ’writeln(fact(x))；
    readln；
    end．．
    程序运行时，输入一个适当的整数，程序中通过调用函数计算出这个整数的阶乘，并输出到屏幕上。