虚拟方法virtual的用法

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

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

TFather = class
public
procedure Fa; // virtual;
end;

TChild = class(TFather)
public
procedure Fa; // override;
procedure Ca;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TChild }

procedure TChild.Ca;
begin
ShowMessage('Childer');
end;

procedure TChild.Fa;
begin
// inherited;
end;

{ TFather }

procedure TFather.Fa;
begin
ShowMessage('Father');
end;

procedure TForm1.Button1Click(Sender: TObject); // C->F
var
F: TFather;
begin
F := TChild.Create;
F.Fa;
// F.Ca; //编译不过去
end;

procedure TForm1.Button2Click(Sender: TObject); // C(F)
var
F: TFather;
begin
F := TFather.Create;
TChild(F).Fa; //*** 声明方法时，如果不用 virtual 和 override 关键字修饰的话
//*** 那么在子类实现时要手动的调用 inherited 才可以正确调用父
//*** 类实现的方法，但是如果使用了 virtual 和 override 的话，
//*** 则可以不用手动的调用 inherited 也能正确调用(即当按Ctrl+C
//*** 时会自动添加inherited。

TChild(F).Ca; //虽然创建的是父类，但是强制转换后（重新设定对象范围）可以调用。
//但是不确定是否会有意外的错误发生。
//如果使用了关键字override,编译器会使用晚帮定，即到运行是根据实
//际的对象来决定调用父类方法还是子类方法
//换句话说就是使用了关键字的话，强制转换将不起作用。（起到的作用
//只是检测到父类中是否有此方法了，有可以调用，但是调用的还是子类
//的方法，要是没有就根本不能调用）
end;

procedure TForm1.Button3Click(Sender: TObject); // F(C)
var
C: TChild;
begin
C := TChild.Create;
TFather(C).Fa;
//TFather(C).Ca; //编译不过去
end;

end.