过程和函数的重载

可以在同一个作用范围内给不同的过程或函数取同一个名称，这种现象就叫做重载。这样可以使编程更方便。在重载的情况下，决定使用哪个过程或函数的依据是形参和实参的一致性，即参数个数、参数类型以及它们之间的顺序，不存在一个函数调用满足两个重载函数的情况。另外重载函数必须用指令字Overload 来进行说明，函数的返回值类型不同就不可以作为重载函数的依据。下面的两个函数就是重载函数：

function Average(a:Integer; b:Integer):Double;overload; //求整形数据的平均值

function Average(a:Double; b:Double):Double;overload; //求实数数据的平均值

下面两条语句就调用了不同的函数：

Average(3.7,4.6); //调用的是第2 个重载函数

Average(3,4); //调用的是第1 个重载函数

如果又定义了一个重载函数如下：

function Average(a,b:Double;c:Double=0.0):Double;overload; //求3 个实数平均值

从上例可以看出，尽管参数的个数与上面的两个不同，但第3 个参数设置了一个默认值，所以当参数调用为语句Average(1.1,2.2);时，编译系统就不知道应该使用哪个重载函数了，因为第2 个重载函数和第3 个重载函数都可以满足要求，这样就会出现一个编译错误。