532628838
圣骑士
圣骑士
  • 注册日期2011-06-10
  • 发帖数98
  • QQ
  • 火币517枚
  • 粉丝77
  • 关注39
阅读:3035回复:0

delphi过程调用与函数调用

楼主#
更多 发布于:2011-08-01 17:07
  过程的调用与简单语句的使用一样,形式如下:
    <过程名>(<实际参数列表>);
    “实际参数列表"中的各个参数必须用逗号分隔开来,其顺序必须和过程说明中的参数顺序相对应,而且个数相同,类型相符。
    2.函数调用的形式
    函数调用的语法格式为:
    <函数名>(<实际参数列表>)
    “实际参数列表"中的各个参数必须通过逗号分隔开来,其顺序必须和函数说明的参数顺序相对应,而且个数相同,类型相符。
    注意:调用过程相当于执行了一个语句,而函数调用通常出现在赋值语句或表达式中。
    3.形参与实参
    当程序.调用一个过程时,通常用参数传递数据到被调用的过程中。最常用的参数有数值参数、变量参数和常量参数3种。
    一般将函数定义时参数列表中的参数称为形参,将函数调用时参数列表中的参数称为实参。
在函数调用的时候,多个参数之间用逗号隔开。
    例2.12  定义一个函数ShowNum,可以将一个浮点数按指定的精度输出到屏幕上。

程序代码如下:
    program Project2-1 2;    、
    {$APPTYPE CONSOLE}
    uses Sysutils;    //为了使用函数Format,以一定精度显示一个浮点数
    function ShowN’tim(Num:Double;Precision:Integer=4):Boolean;//函数定义
    var MesStr:String;    //浮点数显示输出的内容  
    oegm
    if Precision<=一1 then  //小数点后的位数要大于或等于零
  begin
    result:=false;
    exit;
  end
else
//退出显示函数
begin    //设置显示的格
MesStr:=Format(’*水.*f’,[1 0,Precision,Num]);//Format
result::true;
    end;
    writeln(MesStr);
  end;
begin
  ShowNum(1 23.456789);
ShowNum(1 23,5);
ShowNum(1 23.456789,9)
ShowNum(22 div 7,5)
//显示数据
//主程序
//Precision默认为4
//参数对数据类型进行升级
//参数对数据类型不能降级
//调用函数
是一个格式化函
if ShowNum(1 23.456789,一3)=false then//根据函数的返回值确定下一步的操作
writeln(’数据格式设置错误,输出失败。’);
  writeln(’按下回车键<Enter>退出。’);
  readln;


end.
运行结果如下:
  1 23.4568
 1 23.00000
123.456789000
  3.00000
数据格式设置错误,输出失败。
按下回车键退出。
说明:①为了使用函数Format,需要在uses语句中将Sysutils单元包含。参见Help。
②由于小数点后的位数不可以设置为负数,所以当出现负数的时候,ShowNum函数返回False,并调用Exit函数立刻退出ShowNum函数。
    ③在语句ShowNum(1 23,5);中,首先将整型常数1 23转换为浮点型常数,然后进行参数传递。在语句ShowNum

喜欢0 评分0
游客

返回顶部