Delphi的STRATEGY模式是在STRATEGY的基礎(chǔ)上進(jìn)行了擴(kuò)展。更多STRATEGY模式的資料請(qǐng)參閱 《設(shè)計(jì)模式208頁(yè)》
目的
定義一系列的算法，把它們一個(gè)個(gè)封裝起來(lái)，并且使它們可相互替換。本模式使得算法可獨(dú)立于使用它的客戶(hù)面變化。
動(dòng)機(jī)
? 由于需要可以動(dòng)態(tài)的變換不同的策略。
? 更好的封裝多個(gè)行為與算法結(jié)構(gòu)，而不讓客戶(hù)程序直接干擾
? 通過(guò)相關(guān)的條件語(yǔ)句選擇正確的行為方法。
Template方法使用繼承來(lái)變換部分算法。Strategies則使用代理和組合來(lái)變換所有的算法并支持動(dòng)態(tài)變換。以后，將使用context對(duì)象在運(yùn)行期動(dòng)態(tài)的分配具體的算法。同樣，通過(guò)使用context對(duì)象，客戶(hù)類(lèi)將從依賴(lài)的算法接口中分離出來(lái)，通過(guò)context對(duì)象可以提供更多的泛化接口。同樣意義的是，通過(guò)context與strategy接口可以在將來(lái)設(shè)計(jì)并提供全系統(tǒng)的相關(guān)算法來(lái)實(shí)現(xiàn)具體的應(yīng)用而無(wú)需改變接口。
Strategies同樣讓你您創(chuàng)建單一的、間單的、易維護(hù)的類(lèi)框架。類(lèi)框架依賴(lài)于繼承。
應(yīng)用
下例中的對(duì)信用卡進(jìn)行月利率進(jìn)行計(jì)算。Strategy模式通過(guò)充一的抽象類(lèi)TfinanzeCharge封裝、訪(fǎng)問(wèn)接口并擔(dān)供不同的算法來(lái)進(jìn)行月利率計(jì)算。TregularCharge、TPReferredCharge為信用卡的月利率計(jì)算封裝了不同的具體算法 TmonthlyCharge實(shí)現(xiàn)了TcontextCharge接口并配置了不同的策略對(duì)象。TconntextCharge成為客戶(hù)對(duì)象與策略對(duì)象的中場(chǎng)發(fā)動(dòng)機(jī)，這樣有助于感輕客戶(hù)對(duì)象與策略/對(duì)象的依賴(lài)性。
// 策略接口 (抽象類(lèi))
TFinanzeCharge = class
public
// 返回計(jì)算的結(jié)果
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;
客戶(hù)程序依賴(lài)上下文接口來(lái)調(diào)度指定的策略。無(wú)論如何，因?yàn)樯舷挛慕涌谑菫榭蛻?hù)程序而產(chǎn)生的，客戶(hù)程序必需知道可用的策略/對(duì)象。如果上下文無(wú)法返回一個(gè)有效的實(shí)例，可選擇選擇默認(rèn)策略的方法實(shí)現(xiàn)。
// 上下文接口
TChargeContext = class
public
function ComputeCharges(const Balance: double): double; virtual; abstract;
end;
//具體上下文
類(lèi)TmonthlyCharges作為客戶(hù)對(duì)象與策略對(duì)象的中場(chǎng)發(fā)動(dòng)機(jī)，并通過(guò)在它的構(gòu)造器傳遞一個(gè)具體的利率計(jì)算實(shí)例進(jìn)行設(shè)置。
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
// 客戶(hù)程序訪(fǎng)問(wèn)的接口
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實(shí)例
