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

王朝delphi·作者佚名  2006-05-27
窄屏简体版  字體: |||超大  

继承和多态是密切相关的。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’); // ? 此处Stream的真正实例类型是TFileStream

MyClass := TMyClass.Create;

MyClass.SaveToStream(strm);

…..

end;

而要将MyClass的内容存放到内存中,只需改变

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

为:

strm := TMemoryStream.Create;

即可。

多态的使用是需要两方面的工作,其一当然是类的构架中考虑到了多态,能够提供实现某种功能的中间类(抽象类);其二,是懂得去运用这些中间类,这个工作体现在定义一些过程,函数的参数上。

另外很重要的一点,我想提醒大家的是,类的规划是很重要的,在面向对象编程的时代,类的框架很大程度上决定了程序的框架,决定了软件开发的成败。结构清楚,层次分明的类构架,不仅易于功能划分与扩展,同时也更易于代码的维护。而在这之中,应用继承和多态的思想,引入抽象类,引入中间类,是较为可取的一种方法。

以下列出Delphi中提供的一部分抽象类与具体类:

抽象类 派生的具体类

TStream TFileStream,TMemoryStream;

TCustomIniFile TIniFile, TMemIniFile,TRegistryIniFile;

TStrings TStringList,TMemoStrings,TListBoxStrings;

还有很多,等待你我去发现。这里最常用的是TStream,而最令我惊异的是TCustomIniFile,它的TRegistryIniFile允许你用访问IniFile的方式来访问注册表!这使得我可以用一套代码,实现写注册表和写Ini文件的功能。这其中的技术虽然简单,但是它的意义非同凡响!

[url=http://www.csdn.net/develop/my_article.asp?author=Musicwind][/url]

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航