方法重载（Overloading procedures and functions）

从Delphi4开始，Object Pascal可以使用具有相同函数名但又有不同参数的函数。

共享公用名称的方法就称重载方法。

我们共同来完成一个范例，我们要实现两个数的乘积，这两个数有可能是Integer、Double、Word类型，而我们只需要一个Multiply函数来实现。

1、新建一个Application。

2、在Form1上放置一个Memo组件（Memo1）和Button组件（Button1），如下所示：

3、在Code Editor中输入以下代码，并添加Button1Click事件，完整代码如下：

unit Unit1;

interface

uses



{ 此处省略部分Delphi缺省代码，以节约空间}



var

  Form1: TForm1;

{ 所有需要重载的方法都需要声明，并用overload来指示}

function Multiply(Num1, Num2: Integer): Integer; overload;

function Multiply(Num1, Num2: Double): Double; overload;

function Multiply(Num1, Num2: Word): Word; overload;



implementation

{$R *.dfm}

{ 重载方法的定义}

function Multiply(Num1, Num2: Integer): Integer;

begin

  Result := Num1 * Num2;

end;

function Multiply(Num1, Num2: Double): Double;

begin

  Result := Num1 * Num2;

end;

function Multiply(Num1, Num2: Word): Word;

begin

  Result := Num1 * Num2;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  DNum1, DNum2: Double;

  INum1, INum2: Integer;

  WNum1, WNum2: Word;

begin

  Memo1.Clear;

  { 两个Integer类型的乘法}

  INum1 := 2000;

  INum2 := 3000;

  Memo1.Lines.Add('Mulitiply(' + IntToStr(INum1) +

    ', ' + IntToStr(INum2) + ') = ' + IntToStr(Multiply(INum1, INum2)));



  { 两个Double类型的乘法}

  DNum1 := 1.1;

  DNum2 := 1.1;

  Memo1.Lines.Add('Mulitiply(' + FloatToStr(DNum1) +

    ', ' + FloatToStr(DNum2) + ') = ' + FloatToStr(Multiply(DNum1, DNum2)));



  { 两个Word类型乘法}

  WNum1 := 11;

  WNum2 := 22;

  Memo1.Lines.Add('Mulitiply(' + IntToStr(WNum1) +

    ', ' + IntToStr(WNum2) + ') = ' + IntToStr(Multiply(WNum1, WNum2)));

end;

end.

4、其实声明的重载方法仍然需要分别编写函数，但起码可以用相同的名称，编译器会根据传送给函数的参数，调用相应的正确函数。

5、F9编译运行后，按Button1后结果如下：

Note:

重载函数是通过参数表来工作的，就是说可以改变函数使用参数的类型或个数，但不能通过改变返回值来建立重载函数。

例如下面的例子是非法的，不可以构成重载:

function DoSomething: Integer; overload;

function DoSomething: Double; overload;

如果编译含有上面这些行代码的程序，会得到编译器错误“Declaration of ‘DoSomething’differs from previous declaration”。

以上代码均在Delphi7下测试通过。