文档章节

理解 Delphi 的类(五) - 认识类的继承

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 209
阅读 8
收藏 0
先新建一个 VCL Forms Application 工程, 代码中就已经出现了两个 :
一个是 TForm 类; 一个是 TForm1 类; TForm1 继承于 TForm.
TForm 是 TForm1 的父类; TForm1 是 TForm 的子类.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

  //下面自定义了两个类, TChild 继承于 TBass
  TBass = class
    procedure msg1;
  end;

  TChild = class(TBass)
    procedure msg2;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TBass }
procedure TBass.msg1;
begin
  ShowMessage('is Bass');
end;

{ TChild }
procedure TChild.msg2;
begin
  ShowMessage('is Child');
end;



//测试1: 父类只有一个方法 msg1
procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBass;
begin
  b := TBass.Create;
  b.msg1; {is Bass}
  b.Free;
end;

//测试2: 子类有两个方法, 自己一个 msg2, 还继承了一个 msg1
procedure TForm1.Button2Click(Sender: TObject);
var
  c: TChild;
begin
  c := TChild.Create;
  c.msg1; {is Bass}
  c.msg2; {is Child}
  c.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/01/11/1034526.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
接口/抽象类/方法实现与重写/静态延迟绑定的一些知识点的梳理(PHP实例)

最容易混淆的知识点: 接口中的方法只能为 public 抽象方法可以为 public 和 protected,但不能为 private 如何理解:接口和抽象方法皆为方法的声明,需要让子类去实现方法体,这就要求子类必...

big_cat
2016/09/01
62
0
Java 程序员的错

编者注:可以喷语言,但不要搞人身攻击! BTW:我也是一名 Java 程序员,哈哈! Java程序员是有问题的。我使用Java编程已经有10多年的历史。同时,我还有过大量的使用其它语言开发的经历,比...

oschina
2014/07/29
7.8K
92
再学习 Kity 笔记(五) 初步

在过去两周左右, 一直在学习 kity, kityminder, nodejs, seajs 等一系列项目. 有些认识经过一段时间学习, 已经发生了 变化, 使得原有笔记过时. 兹为深入学习, 有必要回顾复习重新看一遍. Kit...

刘军兴
2015/12/04
68
0
delphi之多线程编程(一)

delphi之多线程编程(一) 本文的内容取自网络,并重新加以整理,在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。 多线程应该是编程工作者的基础...

KavenSu
2014/01/22
0
0
java基础-多态是什么?

1.1 什么是多态? 多态是继数据抽象和继承之后的第三种基本特征。 定义:多态(Polymorphism)按字面的意思就是“多种状态”。在面向对象语言中,接口的多种不同的实现方式即为多态。引用C...

KongFanhao
2016/09/18
43
0

没有更多内容

加载失败,请刷新页面

加载更多

Java Lock接口分析之ReentantReadWriteLock

ReentantReadWriteLock读写锁,在读线程多余写线程的并发环境中能体现出优异的性能,相比于synchronized与ReentrantLock这种独占式锁的模型,ReentantReadWriteLock采用独占式写锁与共享式读...

我爱春天的毛毛雨
21分钟前
0
0
EFK (Fluentd ElasticSearch Kibana) 采集nginx日志

本文描述如何通过FEK组合集中化nginx的访问日志。本人更喜欢按顺序来命名,所以使用FEK而不是EFK. 首先在nginx服务器上执行以下操作. 安装ruby http://blog.csdn.net/chenhaifeng2016/artic...

xiaomin0322
22分钟前
1
0
一键下载:将知乎专栏导出成电子书

老是有同学问,学了 Python 基础后不知道可以做点什么来提高。今天就再用个小例子,给大家讲讲,通过 Python 和爬虫,可以完成怎样的小工具。 在知乎上,你一定关注了一些不错的专栏(比如 ...

crossin
31分钟前
1
0
synchronized 之 对象锁 和 类锁

一、synchronized(object) 如果object没有被加锁,则获取object的锁;如果object已经被加锁则等待object的锁被释放。 二、需要加锁的情景 多线程共享同一资源会引起线程安全的情况下,才需要...

MyOldTime
33分钟前
6
0
tomcat 单机/多机 部署多应用

一.单机部署多应用: 1.在 linux 下解压安装两个 tomcat:tomcat1, tomcat2; 2.修改 /etc/profile, 增加 tomcat 环境变量: path 中加上 重新加载配置文件 source /etc/profile 3.修改 tomc...

imbiao
44分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部