IDC资讯中心
继承和多态是密切相关的。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文件的功能。这其中的技术虽然简单，但是它的意义非同凡响！
