理解 Delphi 的类(十一) - 深入类中的方法[6] - 类中的方法重载

最新推荐文章于 2019-08-24 22:18:00 发布

转载最新推荐文章于 2019-08-24 22:18:00 发布 · 72 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319991

本文深入解析了为何大部分程序员在职业生涯中未能晋升为架构师，从方法重载的角度出发，阐述了架构师所需的技术视野和能力，以及与普通程序员之间的差距所在。

为什么80%的码农都做不了架构师？>>>

//类中的方法重载首先具备前面说过的重载相关的所有特点, 如:
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;

转载于:https://my.oschina.net/hermer/blog/319991