考虑继承,a tip about 《Inside VCL》

原创 2004年03月25日 17:25:00

考虑继承,a tip about Inside VCL

先行知识:OO/VCL<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

难度:★☆☆☆☆

 

最近终于有时间看一看在前一段时间买的书《Inside VCL》,在读书的时候难免会发现一些问题,也许有些是微不足道的,但自己认为是以前没有考虑过的东西我便把它写出来(这篇也不例外)。

李维老师在对象基本服务那一节中讲到了对象的释放服务,可以看到一个简单的TObject.DestroyDelphi却在背后为我们隐藏了那么复杂的操作,在书中的80页里写到了被析构函数调用的ClearupInstance,在其中有这样的实现:

while (ClassPtr <> nil) and (InitTable <> nil) do

begin

  _FinalizeRecord(Self, InitTable);

  ClassPtr := ClassPtr.ClassParent;

  if ClassPtr <> nil then

    InitTable := PPointer(Integer(ClassPtr) + vmtInitTable)^;

end;

内存的具体释放工作在交给_FinalizeRecord实现后出现了这样的语句:

ClassPtr := ClassPtr.ClassParen

看到这里我有些不明白了?在释放了当前的对象所拥有的空间后为什么还要遍历到父类呢?难道我们释放了我们对象的空间后还要释放父类的空间?那不根本不是我们所要求的意思吗?(后来才发现这是由我以前没有考虑过的一个问题而引起的根本错误!)。我们考虑下下面的两个类和相关的代码:

TBase = Class (TObject)

 Private

  Field:string;

End;

 

TFooBase = Class (TBase)

 Private

  FooField: string;

End;

var

 Base:TBase;

 FooBase:TfooBase

在释放FooBase时会最终调用到_WstrArray来释放其私有字段FooField所占的空间,那么释放这种特定类型所占的空间是否到此就结束了呢?当然不是,因为还有一个字段没有释放呢!那就是TBaseField!为什么需要释放这个字段呢?我们并不释放Base啊,那是因为在FooBase中也存在这个字段,我当时就在问Field不是TBase所私有的吗?和TfooBase有什么关系?原因就在这里了,即使FieldTBase所定义的私有成员但它仍将被TfooBase所继承,只是不能访问罢了!(这个问题在很多大学的OO教材中都没有提到过,只是说私有成员不能被派生的类访问,而到底派生的类中有没有这个成员就没有清楚的说了,有些甚至描述为基类中的私有成员不能被派生类所继承。后来在问了我的几个同学这个问题后,我更确定了这一点大家都没有想过)。写到这里就不难解释上的ClassPtr := ClassPtr.ClassParen语句了。我们再通过一个例子来证实一下:

按上面的两个类创建两个实例,分别用showmessage(inttostr(Base.InstanceSize));showmessage(inttostr(FooBase.InstanceSize));来查看对象的大小,可以看到基类的对象大小为8(一个self指针一个字符串的指针),派生类对象为大小为12(一个self指针2个字符串的指针),写到这里这个问题就清楚了:

ClassPtr := ClassPtr.ClassParen只是为了通过基类找到基类的vmtInitTable,从而找到基类有多少个字段各是什么类型以便在派生类中释放。

看来在日常的编程中仍有一些细小的问题是我没有考虑过的,以后应该多留意一些这些细节,不过这个问题我想大多数人都应该知道的,只是刚学OO的初学者可能没有仔细考虑过吧。

《Inside VCL(深入核心——VCL架构剖析)》.(李维) 一

一、回到从前:1.1、多任务操作系统是如何设计和实现的? 1.1.1、系统——多个应用程序 方案1:(系统不断读取应用程序状态) 系统通过大型循环(Loop)不断坚持么一个恶用用程序是否触发了特定的事...
  • liang08114
  • liang08114
  • 2016年12月20日 21:03
  • 527

《Inside VCL(深入核心——VCL架构剖析)》.李维 三

一、 1、TObject提供了VCL Framework的基础服务; 2、TPersistent提供了VCL Framework的持久化能力; 3、VCL需要的第3个核心类就是所有VCL组件类继...
  • liang08114
  • liang08114
  • 2016年08月16日 16:08
  • 620

我的回忆和有趣的故事 by李维(台湾)

我的回忆和有趣的故事 by李维(台湾)
  • shuaihj
  • shuaihj
  • 2011年01月10日 13:38
  • 4349

Inside VCL(深入核心——VCL架构剖析) 》

 原书名: 原出版社: 作者:李维 译者: 书号:7-5053-9489-4页码:706开本:16开版次:1-1丛书名:李维作品系列 出版社:机械工业出版社 出...
  • SStallMan
  • SStallMan
  • 2004年10月19日 22:20
  • 1569

SQLite官文翻译(一):关于SQLite

1 开源 SQLite是开源的,处于公有领域中,可免费用于任何目的,无论商用还是个人使用。 2 嵌入式数据库 SQLite是一个嵌入式的数据库引擎。与大多数其他SQL数据库不同,它没有单独的服务器进程...
  • notgeek
  • notgeek
  • 2016年10月10日 15:34
  • 158

ORA-14551: cannot perform a DML operation inside a query

在做一报表时,使用了一包体含了Insert语句的Select 查询语句出现cannot perform a DML operation inside a query信息。于是查找网上看了一些例子,并且...
  • rockywu
  • rockywu
  • 2009年03月30日 18:32
  • 1416

The member enum Constants2 can only be defined inside a top-level class放置位置不对

放置位置不对 The member enum Constants2 can only be defined inside a top-level class or interface or ...
  • txwtech
  • txwtech
  • 2017年03月09日 21:21
  • 333

Control 'GridView1' of type 'GridView' must be placed inside a form tag with runat=server

 Control GridView1 of type GridView must be placed inside a form tag with runat=server asp.net(C#) T...
  • chinaly
  • chinaly
  • 2009年11月16日 09:56
  • 3433

java.lang.VerifyError: Bad <init> method call from inside of a branch

http://bugs.java.com/view_bug.do?bug_id=8051012 https://bugs.openjdk.java.net/browse/JDK-805101...
  • zhoujj303030
  • zhoujj303030
  • 2015年05月09日 11:20
  • 1042

Delphi中的继承机制

        继承是面向对象开发的的特点之一。良好的继承可以有效的降低代码冗余,提高代码复用。Delphi做为一款优秀的面向对象开发工具,在这一方面也不示弱。当我们在Delphi中新建一个窗体时,可...
  • chris_mao
  • chris_mao
  • 2007年11月01日 17:17
  • 5908
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:考虑继承,a tip about 《Inside VCL》
举报原因:
原因补充:

(最多只允许输入30个字)