欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

Delphi VCL Framework中的ForEach模式

程序员文章站 2022-06-07 08:57:45
...

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

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

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

实现

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

Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi var
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi aChild:TRoot;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi aTarget:Target;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi aTarget:
=Target.Create;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi aChild:
=TChild2.Create;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi ......
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi aChild.ForEach(aTarget.Routine2);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi ......
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;

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

使用举例

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

Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi Type
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi TRunner
=procedure(AListView:TListView)ofObject;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi TLVManager
=class
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
private
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi FList:TList;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
public
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi constructorCreate;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi destructorDestroy;
override;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi procedureAddListView(AListView:TListView);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi procedureForEach(ARunner:TRunner);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi implementation
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi procedureTLVManager.AddListView(AListView:TListView);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi FList.Add(AListView);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi constructorTLVManager.Create;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi FList:
=TList.Create;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi descturctorTLVManager.Destroy;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi var
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi i:Integer;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
fori:=FList.Count-1downto0do
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi TListView(FList.Items[i]).Free;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi FList.Clear;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi FreeAndNil(FList);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi inherited;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi procedureTLVManager.ForEach(ARunner:TRunner);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi var
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi i:Integer;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
fori:=0toFList.Count-1do
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi ARunner(TListView(FList.Items[i]));
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;

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

Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi type
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi TExternalRoutines
=class
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
public
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi procedureRoutine1(AListView:TListView);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi procedureRoutine2(AListView:TListView);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;

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

Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi var
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi mng:TLVManager;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi Runner:TExternalRoutines;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
//客户端程序初始化部分
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi mng:
=TLVManger.Create;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
//添加ListView到TLVManager中
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
mng.AddListView(ListView1);
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi ......
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi Runner:
=TExternalRoutines.Create;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi end;
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
//客户端程序执行部分
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
begin
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi mng.ForEach(Runner.Routine1);
//对被加入到TLVManager中的ListView执行Routine1方法
Delphi VCL Framework中的ForEach模式
            
    
    博客分类: Delphi delphi 
end;

 

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

相关标签: delphi