Delphi编程基础：过程与函数使用及作用域详解.pdfVIP

过程与函数的使用

1、形式参数和实际参数

2、按值传递、按地址传递

3、过程和函数的重载

引子:Max标准函数

名称相同，而参数的数据类型和数量不同的过程或者函数，称为重载。编译器提供重载的思

路就是允许用户定义多个同名的程或者函数，但是，参数不同(可以是类型不同，也可以

是参数个数不同)。

Function函数名(形式参数表):返回值;overload;

Procedure函数名(形式参数表):overload;

4、作用域

unitUnit1;//单元首部

interface//接口部分

uses//引用外部单元

implementation//实现部分

end.//单元结束

(1)在单元接口部分声明的程或函数在整个单元内有效。当其他单元(客户单元)引用该

单元时，这些程和函数都可以被其他客户端单元使用。

unitUnit1;

interface

functionxxxx:string;

uses

implementation

end.

(2)在实现部分的隐含声明部分声明的程或函数在该单元内有效，不能在单元外使用。

即使其他单元引用该单元，这些程或者函数也不能被引用。

unitUnit1;

interface

uses

implementation

//在此处不需要显示声明，隐含声明认为实现部分已声明

functionxxxx:string;

begin

end;

end.

(3)在实现的任何子程序段中声明的过程或者函数，只在该程序段内有效

functionGetStr:string;

var

sStr:String;

functionAddFunc(a,b:Integer):Integer;

begin

Result:=a+b;

end;

begin

sStr:=IntToStr(AddFunc(10,11));

Result:=sStr;

end;

作业：写一个程序，简单实现，加减乘除，求余功能。

要求：分别新建4单元文件，分别实现加减乘除，而求余功能，在本单元中，使用上面(3)

的方式实现