深入类中的方法[6] - 类中的方法重载

//类中的方法重载首先具备前面说过的重载相关的所有特点, 如:

TMyClass = class(TObject)

  function Fun(s: string): string; overload;

  function Fun(i: Integer): Integer; overload; 

  function Fun(x,y: Integer): string; overload;

end;

---

//但如果是重载父类中的方法, 如果父类中被重载的方法在本类中没有重载的话, 可以省略 overload 指示字

TBass = class(TObject)

  function Fun(s: string): string; {这里省略了 overload, 当然也可以不省略}

end;

TChild = class(TBass)

  function Fun(i: Integer): Integer; overload;

end;

{这个很好理解, 父类并不知道哪个子类要重载它的哪个方法}

---

//published 区中的方法命名要有唯一性, 该区域中的方法不能重载!

{这样是不可以的}

TMyClass = class(TObject)

published

  function Fun(s: string): string; overload;

  function Fun(i: Integer): Integer; overload; 

end;

---

//这就有一个问题:  公共区域, 在默认情况下是归属于 published 区的, 为什么公共区域的函数可以重载? 

{

  编译器会把公共区域中的重载函数自动归类到 public 区, 也可能会给 published 区一个; 

  这是我猜的, 没有资料可以参考. 

  关于这个问题, 我又搞了一个实验:

}

//在自动生成的 TForm1 类的公共区域添加重载方法:

type

  TForm1 = class(TForm)

  procedure alert(s: string); overload;     {No.1}

  procedure alert(s1,s2: string); overload; {No.2}

  private

    { Private declarations }

  public

    { Public declarations }

  end;

//执行编译后, 只会留下第一个:

type

  TForm1 = class(TForm)

  procedure alert(s: string); overload;       {No.1}

  private

    { Private declarations }

  public

    { Public declarations }

  end;