OverRide

原文：http://www.cnblogs.com/del/archive/2007/12/17/1002959.html

 

1、覆盖(父有 virtual; 子有: override;)
2、屏蔽(同名、同参数, 但没有覆盖; 这种情况几乎没人使用, 只是从逻辑上探讨下)

覆盖: 用谁最先建立的就使用谁的, 不管转换与否.
屏蔽: 转换为谁就使用谁的.

---

 unit Unit1; interface uses Classes, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; TBase = class procedure proc1; virtual; procedure proc2; end; TChild = class(TBase) procedure proc1; override; procedure proc2; end; var Form1: TForm1; implementation {$R *.dfm} { TBase } procedure TBase.proc1; begin ShowMessage('B1'); end; procedure TBase.proc2; begin ShowMessage('B2'); end; { TChild } procedure TChild.proc1; begin //inherited; ShowMessage('C1'); end; procedure TChild.proc2; begin ShowMessage('C2'); end;

procedure TForm1.Button1Click(Sender: TObject); var B: TBase; C: TChild; BC: TBase; begin B := TBase.Create; C := TChild.Create; BC := TChild.Create; B.proc1; //B1 B.proc2; //B2 TChild(B).proc1; //B1 ｛既然转化为子类了，为什么不调用子类的方法显示‘C1’｝ TChild(B).proc2; //C2｛子类方法隐藏了父类的方法｝ C.proc1; //C1 C.proc2; //C2 TBase(C).proc1; //C1 //是不是子类方法已采用晚绑定机制改写了其父类所指向的虚方法 TBase(C).proc2; //B2｛调用父类的方法｝ BC.proc1; //C1 BC.proc2; //B2 TBase(BC).proc1; //C1｛因为通过子类实例化，所以子类方法覆盖了父类的虚方法｝ TBase(BC).proc2; //B2｛不是虚方法就不覆盖只隐藏，此时调用父类的方法｝ TChild(BC).proc1; //C1｛理所当然｝ TChild(BC).proc2; //C2｛理所当然｝ B.Free; C.Free; BC.Free; end;