Handbook之010：函数重载

可以修改如下：

或者如下：

 

代码如下：

unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Add(N: Integer; S: Single): Single; overload;
begin
  Form1.Memo1.Lines.Add('重载方法一');
  Result := N + S;
end;

function Add(S: Single; N: Integer): Single; overload;
begin
  Form1.Memo1.Lines.Add('重载方法二');
  Result := N + S;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Add(10, 10.ToSingle);
end;

end.

转载于:https://www.cnblogs.com/GodPan/p/4905176.html