Delphi VCL Framework中的ForEach模式

在实际的工作中偶尔会遇到如下情况：让一个类继承架构的对象实体能够通过一致的方法执行另外一个目标类对象的方法或是独立的函数，目标类需要被执行的方法或是独立的函数可以自由地改变或是增加而会影响执行类的架构。这个时候就会用到ForEach设计模式。

ForEach模式的目的是让拥有稳定继承架构的类对象能够执行外部可变化的方法或是函数。它适用于以下两种情况：

• 如果应用系统中已经有一个稳定的继承架构，而这个类架构须加入新的方法或是需要执行一些方法，但是我们并不想改变继承架构或是修改类声明，以避免经常重新编译或是造成很脆弱的继承架构
• 一个Collection对象需要对其子项执行许多会改变的函数，而又希望拥有一致的机制让每一个子项都能够执行这些外部函数

实现

如上图，左边的一个稳定的类继承架构，在父类中可以定义一个虚拟方法ForEach，这个方法接受一个参数，就是需要执行的外部类方法或是独立方法。若希望TChild1执行Target中的Routine2这个方法，则可以使用如下代码

var
aChild:TRoot;
aTarget:Target;
begin
aTarget:=Target.Create;
aChild:=TChild2.Create;
......
aChild.ForEach(aTarget.Routine2);
......
end;

第二种ForEach设计模式经常使用在Collection管理的动态子项对象中，而且这些对象都需要执行外部可能变化的方法或函数，在这种应用中便可以定义一个外部目标对象，在这个目标对象中有许多的方法，它们需要执行。当特定的方法需要执行时，只要调用Collection定义的ForEach方法，再由Collection一一地要求所有子项顺序的执行外部方法即可。

使用举例

假设需要对窗体中的某类组件执行某些操作（为了方便后面说明，这里假设对窗体上部分TListView组件进行操作）。则可以使用ForEach模式。首先定义出外部方法的标准模式TRunner，然后再定义一个Manager类，负责管理TListView组件，并在其中定义一个ForEach方法。

Type
TRunner=procedure(AListView:TListView)ofObject;

TLVManager=class
private
FList:TList;
public
constructorCreate;
destructorDestroy;override;
procedureAddListView(AListView:TListView);
procedureForEach(ARunner:TRunner);
end;

implementation

procedureTLVManager.AddListView(AListView:TListView);
begin
FList.Add(AListView);
end;

constructorTLVManager.Create;
begin
FList:=TList.Create;
end;

descturctorTLVManager.Destroy;
var
i:Integer;
begin
fori:=FList.Count-1downto0do
TListView(FList.Items[i]).Free;
FList.Clear;
FreeAndNil(FList);
inherited;
end;

procedureTLVManager.ForEach(ARunner:TRunner);
var
i:Integer;
begin
fori:=0toFList.Count-1do
ARunner(TListView(FList.Items[i]));
end;

我们将需要执行的外部方法全部定义的TExternalRoutines类中

type
TExternalRoutines=class
public
procedureRoutine1(AListView:TListView);
procedureRoutine2(AListView:TListView);
end;

当应用程序在执行期间需要所有由TLVManager类管理的ListView执行TExternalRoutines类的某一个方法时就调用TLVManager的ForEach方法。

var
mng:TLVManager;
Runner:TExternalRoutines;

//客户端程序初始化部分
begin
mng:=TLVManger.Create;
//添加ListView到TLVManager中
mng.AddListView(ListView1);
......

Runner:=TExternalRoutines.Create;
end;

//客户端程序执行部分
begin
mng.ForEach(Runner.Routine1);//对被加入到TLVManager中的ListView执行Routine1方法
end;

 

版权声明：本文为博主原创文章，未经博主允许不得转载。