[vcl源码精华]之[borland工程师如何保证父类(TStream)的两个overload的seek,至少有一个必须被override]

原创 2004年12月31日 21:16:00

TStream 使用了下面的代码,强制子类必须implement两个seek方法中至少一个

classes.pas 单元4904行@Delphi7

首先说明TStream有两个seek方法

function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual; //叫它seek1
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual;//叫它seek2

看看如何实现的

function TStream.Seek(Offset: Longint; Origin: Word): Longint;

  procedure RaiseException;
  begin
    raise EStreamError.CreateResFmt(@sSeekNotImplemented, [Classname]);
  end;

type 

   //声明了一个seek2样式的函数类型
  TSeek64 = function (const Offset: Int64; Origin: TSeekOrigin): Int64 of object;
var 

   //impl是子类的seek2方法,Base是TStream的seek2方法

  Impl: TSeek64;
  Base: TSeek64;
  ClassTStream: TClass;
begin
{ Deflect 32 seek requests to the 64 bit seek, if 64 bit is implemented.
  No existing TStream classes should call this method, since it was originally
  abstract.  Descendent classes MUST implement at least one of either
  the 32 bit or the 64 bit version, and must not call the inherited
  default implementation. } 

//如果进入此函数,说seek1没有被override,下面的任务就是验证seek2必须被override;
  Impl := Seek; //如果子类没有实现seek,那么impl就是seek2的方法(庐山中?)

//下面将ClassTStream将会是TStream的class类型,同时保证当前类是TStream的子类
  ClassTStream := Self.ClassType;
  while (ClassTStream <> nil) and (ClassTStream <> TStream) do
    ClassTStream := ClassTStream.ClassParent;
  if ClassTStream = nil then RaiseException; 

//Base为TStream的seek2方法,这句的语法最有意思
  Base := TStream(@ClassTStream).Seek; 

//开始了,如果当前类的seek2方法和TStream的seek2方法代码相同,那么异常之
  if TMethod(Impl).Code = TMethod(Base).Code then
    RaiseException;

//能执行到这里,表明seek2已经被override了,调用子类实现的seek2方法 
  Result := Seek(Int64(Offset), TSeekOrigin(Origin));
end;

function TStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
{ Default implementation of 64 bit seek is to deflect to existing 32 bit seek.
  Descendents that override 64 bit seek must not call this default implementation. } 

//这里就好解释了,如果执行到这个方法,那么说明本seek2未被override;,那么seek1一定被override了,就调用seek1.
  if (Offset < Low(Longint)) or (Offset > High(Longint)) then
    raise ERangeError.CreateRes(@SRangeError);
  Result := Seek(Longint(Offset), Ord(Origin));
end;

我刚开始看到 时候,还说怎么回事,两个overload的函数互相调用,没有具体代码,原来是要求子类必须实现其中一个,borland的工程师确实很牛!!!

Override和Overload的含义去区别

最近看了一下关于java的基础知识,对此作了一下搜集整理:  java中的继承,方法覆盖(重写)override与方法的重载overload的区别  方法的重写(Overriding)和重...
  • u011860731
  • u011860731
  • 2015年09月25日 11:25
  • 5306

c++ const在重载overload和覆盖override上使用区别

1.overload 重载 首先讲讲const在重载上的使用,重载的目的是为了根据不同的输入来调用不同的同名函数。const的位置不同会引起不同的效果,我在一篇转载文章中具体阐述过:点击打开链接 ...
  • zjcxhswill
  • zjcxhswill
  • 2016年02月06日 14:09
  • 2030

java中方法重写(Override)与方法重载(Overload)的区别

虽然知道方法重写与方法重载,但总是会忘记具体的区别以及一些细节,所以干脆就写一篇博客记录下来吧。 方法重写(Override):        在Java中,子类可继承父类中的方法,而不需要重新编写相...
  • BeauXie
  • BeauXie
  • 2016年10月31日 20:16
  • 1671

面试题_overload与override的区别

override(重写,覆盖) 1、方法名、参数、返回值相同。 2、子类方法不能缩小父类方法的访问权限。 3、子类方法不能抛出比父类方法更多的异常(但子类方法可以不抛出异常)。 4、存在于父类...
  • baidu_31337243
  • baidu_31337243
  • 2015年09月15日 21:17
  • 373

面向对象重写(override)与重载(overload)区别

一、重写(override) override是重写(覆盖)了一个方法,以实现不同的功能。一般是用于子类在继承父类时,重写(重新实现)父类中的方法。 重写(覆盖)的规则: 1、重写方法的参数列表...
  • u013754847
  • u013754847
  • 2016年03月24日 10:54
  • 1943

重载overlord与重写override的区别

重写只存在于子类与父类中,重载存在于一个类中。具体区别如下: 一、重写(override)override是重写(覆盖)了一个方法,以实现不同的功能。一般是用于子类在继承父类时,重写(重新实现)父类...
  • cf643487053
  • cf643487053
  • 2016年12月07日 10:28
  • 1085

Java中重载(Overload)和重写(Override)的区别

重载(Overload)重载是指在一个类里面,方法名相同,参数不同。java中有构造器重载和方法重载(意义是一样的,叫法不同)public class Car { private String...
  • u010958620
  • u010958620
  • 2016年03月27日 16:52
  • 986

C# 重载(overload)与重写(override)

1 重写(override) 重写(overload)指子类方法对基类虚方法的重写。当基类中的方法被声明为虚方法(使用关键字virtual),该方法可以在任何子类中被重写。若子类需要使用父类中原有的...
  • tiana0
  • tiana0
  • 2013年11月17日 13:29
  • 2995

10. Override和Overload的含义与区别。

Override(重写,运行时多态): 是子类对容许访问父类的方法进行新的编写的称呼。其中方法名和形参不能发生改变;即外壳不变,内容可以发生改变。 优点:子类可以根据实际需要,定义特定于自己的行为...
  • qq_40983603
  • qq_40983603
  • 2017年11月17日 22:18
  • 47

重载(overload)和覆盖(override)有什么区别(终结篇)

重载(overload)和覆盖(override)是Java多态性的不同表现方式。其中,重载是在一个类中多态性的一种表现,是指在一个类中定义了多个同名的方法,它们或有不同的参数个数或有不同的参数类型,...
  • Harrytsz
  • Harrytsz
  • 2017年03月13日 16:20
  • 244
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[vcl源码精华]之[borland工程师如何保证父类(TStream)的两个overload的seek,至少有一个必须被override]
举报原因:
原因补充:

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