分享
 
 
 

设计模式、用Delphi实现---->Strategy模式

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

Strategy模式

起源

Delphi的STRATEGY模式是在STRATEGY的基础上进行了扩展。更多STRATEGY模式的资料请参阅 《设计模式208页》

目的

定义一系列的算法,把它们一个个封装起来,并且使它们可相互替换。本模式使得算法可独立于使用它的客户面变化。

动机

· 由于需要可以动态的变换不同的策略。

· 更好的封装多个行为与算法结构,而不让客户程序直接干扰

· 通过相关的条件语句选择正确的行为方法。

Template方法使用继承来变换部分算法。Strategies则使用代理和组合来变换所有的算法并支持动态变换。以后,将使用context对象在运行期动态的分配具体的算法。同样,通过使用context对象,客户类将从依赖的算法接口中分离出来,通过context对象可以提供更多的泛化接口。同样意义的是,通过context与strategy接口可以在将来设计并提供全系统的相关算法来实现具体的应用而无需改变接口。

Strategies同样让你您创建单一的、间单的、易维护的类框架。类框架依赖于继承。

应用

Implementation

下例中的对信用卡进行月利率进行计算。Strategy模式通过充一的抽象类TfinanzeCharge封装、访问接口并担供不同的算法来进行月利率计算。TregularCharge、TpreferredCharge为信用卡的月利率计算封装了不同的具体算法

TmonthlyCharge实现了TcontextCharge接口并配置了不同的策略对象。TconntextCharge成为客户对象与策略对象的中场发动机,这样有助于感轻客户对象与策略/对象的依赖性。

// 策略接口 (抽象类)

TFinanzeCharge = class

public

// 返回计算的结果

function getCharge(const Balance: double): double; virtual; abstract;

end;

// 具体策略

TRegularCharge = class(TFinanzeCharge)

public

function getCharge(const Balance: double): double; override;

end;

//具体策略

TPreferredCharge = class(TFinanzeCharge)

public

function getCharge(const Balance: double): double; override;

end;

客户程序依赖上下文接口来调度指定的策略。无论如何,因为上下文接口是为客户程序而产生的,客户程序必需知道可用的策略/对象。如果上下文无法返回一个有效的实例,可选择选择默认策略的方法实现。

// 上下文接口

TChargeContext = class

public

function ComputeCharges(const Balance: double): double; virtual; abstract;

end;

//具体上下文

类TmonthlyCharges作为客户对象与策略对象的中场发动机,并通过在它的构造器传递一个具体的利率计算实例进行设置。

This class acts as a mediator between the client and the strategy classes, and is configured by using composition and passing an instance of a concrete finance charge in its constructor.

TMonthlyCharges = class(TChargeContext)

private

FFinanzeCharge: TFinanzeCharge;

public

// 客户程序访问的接口

function ComputeCharges(const Balance: double): double; override;

// constructor configures the context object

constructor Create(aFinanzeCharge: TFinanzeCharge); virtual;

destructor Destroy; override;

end;

---

implementation

// TRegularCharge

function TRegularCharge.getCharge(const Balance: double): double;

begin

result := Balance * (REG_RATE / 12);

end;

// TPreferredCharge

function TPreferredCharge.getCharge(const Balance: double): double;

begin

// this could be a complex algorithm that takes into account the

// credit card holder’s buying patterns and reward points accumulated.

result := Balance * (PREFERRED_RATE / 12);

end;

// Concrete Context

// TMonthlyCharges

constructor TMonthlyCharges.Create(aFinanzeCharge: TFinanzeCharge);

begin

inherited Create;

// aFinanzeCharge configures the context object

// this class takes ownership of aFinanzeCharge (will destroy it)

FFinanzeCharge := aFinanzeCharge;

end;

destructor TMonthlyCharges.Destroy;

begin

FFinanzeCharge.Free;

inherited Destroy;

end;

function TMonthlyCharges.ComputeCharges(const Balance: double): double;

begin

result := FFinanzeCharge.getCharge(Balance);

end;

Delphi实例

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有