当前位置:编程学习 > Delphi >>

将面向对象的思想贯穿始终--谈Delphi开发(第三篇)

 

 

 

 

(《将面向对象的思想贯穿始终-谈Delphi开发》之第三篇)

       前两篇讨论的是有关封装性的话题。这里,想和您说说关于继承和多态。

       继承和多态是密切相关的。Object Pascal引入了一种多态的机制,叫重载(Overload),它的思想与面向对象关系不大,这里不作讨论。与面向对象思想密切相关的多态是我们着重要讨论的。

多态依赖于抽象方法以及虚方法的概念,同时也和继承密切相关。以为我们往往定义一些底层的对象,然后将其某些实现定义为抽象的,也就是说我们仅仅定义了接口,而没有定义具体的实现细节。按照这样的思路,我们还会定义多个派生(继承)的对象,在这些对象中真正实现那些在祖先类中未曾实现的细节。这就使得我们先前定义的底层类,具有多态的特性。这种机制的好处在于,我们使用这些类的时候,只要一套代码,就可以完成多种功能。而唯一需要改变的就是创建对象的实例的那一部分。

观察这样的一个类:

  TStream = class(TObject)

    ……

  public

    function Read(var Buffer; Count: Longint): Longint; virtual; abstract;

    function Write(const Buffer; Count: Longint): Longint; virtual; abstract;

    ……

  end;

   virual以及abstract保留字表明了Read以及Write方法是纯虚函数。这表明TStream这个类并不能被真正使用(不能创建该类的实例),它只是一个类似于接口的类,它定义了作为TStream类应当具备以及需要处理的基本功能。而且它还规定,其他从TStream类派生出的类,必须去实现的功能(如Read以及Write等)。

举例来说,TFileStream,以磁盘文件应用的方式实现了TStream类;而TMemoryStream则以内存应用的方式实现了TStream类。现在假设有一个类TMyClass提供一个SaveToStream的方法:      

TMyClass = Class(TObject)

              procedure SaveToStream(Stream: TStream);

    end;

    则应用多态的思想,可以有这样的代码:

var

strm: TStream;

MyClass: TMyClass;

       begin

strm := TFileStream.Create(‘abc.txt’); //

补充:软件开发 , Delphi ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,