码迷,mamicode.com
首页 > 其他好文 > 详细

虚拟方法virtual的用法

时间:2014-08-08 01:40:24      阅读:223      评论:0      收藏:0      [点我收藏+]

标签:使用   io   for   ar   log   window   type   windows   

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.

虚拟方法virtual的用法,布布扣,bubuko.com

虚拟方法virtual的用法

标签:使用   io   for   ar   log   window   type   windows   

原文地址:http://www.cnblogs.com/spiritofcloud/p/3898363.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!