Delphi VCL Framework中的ForEach模式

最新推荐文章于 2023-12-14 01:04:29 发布

禹爸爸

最新推荐文章于 2023-12-14 01:04:29 发布

阅读量2.1k

点赞数

分类专栏： Delphi 文章标签： delphi listview integer 设计模式 manager class

本文链接：https://blog.csdn.net/chris_mao/article/details/1895458

版权

本文介绍了在Delphi的VCL框架中如何利用ForEach设计模式来处理类继承架构，使得稳定架构的类能执行外部可变方法。该模式适用于不修改原有架构的情况下添加新功能或对Collection对象子项执行多种可能变化的操作。文中给出了具体的实现示例，如通过Manager类管理和调用ListView组件，执行外部定义的方法。

摘要由CSDN通过智能技术生成

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