Delphi方法重载

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons;



type

  TForm1 = class(TForm)

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);



  private

      Function Maxi(i,y:integer):integer;overload;

    Function Maxi(i,x,y:integer):integer;overload;

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}

Function TForm1.Maxi(i,y:integer):integer;

 begin

   if i>y then Result:=i else Result:=y;

 end;



Function TForm1.Maxi(i,x,y:integer):integer;

 Var

   s:integer;

 begin

   if i>y then s:=i else s:=y;

   if s>x then Result:=s else Result:=x;

 end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

 Showmessage('10和12的最大值是：'+INTTOSTR(maxi(10,12)));

end;



procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

  Showmessage('10和12,15的最大值是：'+INTTOSTR(maxi(10,12,15)));

end;



end.

 重载：可以通相同的名字，但不同的参数声明多个例程，来重载一个例程名称．为了声明重载例程，使用overload指令．