如何在Object Pascal中实现类似C++中的模板

Sorry.由于匆忙，前面的InDone方法的声明更改为如下：
function IsDone: Boolean;

you can use TObject.

Object pascal中没有模板,你可以把参数设置为TObject(或其它基类),运行时用RTTI去检验类型.

首先，谢谢各位的参与。
我突然有一个想法，是否把CurrentItem作为属性
然后在子类中重新定义这个属性的类型。如：
TwhhIteratorBase = class
public
//返回当前元素.由于这时基类，返回TObject类型。
property CurrentItem: TObject;
end;

TwhhDocListIterator = class
public
//可以在子类重新定义这个属性的类型
property CurrentItem: TDoc read GetCurrentItem;
end;
这样的话，不管那个层次的迭代器，都这个属性CurrentItem。但在子类中
这个属性的类型可以不同。

那不一样，这个基类已经定义访问这个类的接口。我可以在其他地方中使用这个迭代器时，就可以直接使用这个接口了。无需知道这个接口是如何具体实现了。比如就这个迭代器，经常有对应的Traverser类。Traverser类中有一个迭代器的实例，就可以直接使用这个迭代器了，无需知道这个迭代器是如何实现。代码如下：
TTraverser = class
protected
function ProcessItem(AobjItem: TObject): Boolean;
function CreateIterator: TwhhIterator;
public
function Traverser: Boolean;
end;

下面是实现代码：
function TTraverser.CreateIterator: TwhhIterator;
begin
Result := TwhhIterator.Create;
end;

function TTraverser.ProcessItem(AobjItem: TObject): Boolean;
begin
Result := True;
end;

function TTraverser.Traverser: Boolean;
var
objIterator: TifoIterator;
begin
Result := False;
objIterator := CreateIterator;
//通过Iterator遍历，然后对所有Item进行ProcessItem操作。
objIterator.First;
while not objIterator.IsDone do begin
if not ProcessItem(objItem.CurrentItem) then begin
Exit;
end;
objIterator.Next;
end;
Result := True;
end;
这个Traverser类就是通过迭代器的遍历，对Item进行ProcessItem操作。完成对所有Item的操作。而且这个类很容易进行子类化，从而实现对Item进行不同操作的目的，重用性高。但在Traverser类不一定需要Iterator类具体是如何实现，就可以完成了。而且是什么Iterator子类实例化，可以在子类对CreateIterator覆盖后期达到。

要写在子类中写ＧｅｔＣｕｒｒｅｎｔＩｔｅｍ代码那是必然，只是想
在子类中能够制定Ｉｔｅｍ的类型，同时又不会破坏基类的接口。

UP.