分享
 
 
 

设计模式、用Delphi实现---->Template Method模式

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

Template Method模式

起源

Delphi的Template Method模式以Object Pascal的虚函数为基础的结构型模式。

目的

定义一组算法操作的框架,定义一些不改变算法结构的子类。

动机

· 更好地封装策略方针并分发到不同的代理。

· 更好地实现复杂算法的代码重用,基类封装不可变的部分,并让子类实现可重载的部分行为方法。

· 更好地通过子类的可扩展部分提供钩子式的操作,但template method模式只允许通过基类来调用。

UML图示:

应用

先让我们看看几个使用了template method模式VCL组件。在下例中,VCL组件中的抽象类Tstream(定义于classes.pas)实现了流拷贝方法CopyFrom(),template 方法CopyFrom()包含了流拷贝的必需的算法。TStream 将Read()和Write()方法声名为抽象方法,并将实现延期到其具体的子类。CopyFrom()通过ReadBuffer()、WriteBuffer() 访问Read()、Write(),

ReadBuffer()、WriteBuffer()为模板方法。以后它们将提供静态并简单Read()和Write()虚方法接口。Read() 和 Write()为指定的扩展点并在派生类中执行

更的详细实现代码请参阅VCL的classes.pas单元的,抽象类Tstream和具体的流类:TCustomMemoryStream/TmemoryStream及TstringStream。通常template方法在基类中被定义为静态,并且派生的操作定义为虚方法,以后你只需要在子类中重载扩展点。对了,接口不支持template方法。

{抽象类 TStream}

TStream = class(TObject)

private

protected

procedure SetSize(NewSize: Longint); virtual;

public

//源类支持的原始的方法

function Read(var Buffer; Count: Longint): Longint; virtual; abstract;

function Write(const Buffer; Count: Longint): Longint; virtual; abstract;

function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract;

// template方法

procedure ReadBuffer(var Buffer; Count: Longint);

procedure WriteBuffer(const Buffer; Count: Longint);

// 封装了由模板方法实现的流拷算法

function CopyFrom(Source: TStream; Count: Longint): Longint;

end;

//具体类

TStringStream = class(TStream)

public

constructor Create(const AString: string);

// 具体类实现了可重载的方法

function Read(var Buffer; Count: Longint): Longint; override;

function Write(const Buffer; Count: Longint): Longint; override;

end;

---------

{ TStream } // 抽象类

// template方法

procedure TStream.ReadBuffer(var Buffer; Count: Longint);

begin

if (Count <> 0) and (Read(Buffer, Count) <> Count) then

raise EReadError.Create(SReadError);

end;

procedure TStream.WriteBuffer(const Buffer; Count: Longint);

begin

if (Count <> 0) and (Write(Buffer, Count) <> Count) then

raise EWriteError.Create(SWriteError);

end;

function TStream.CopyFrom(Source: TStream; Count: Longint): Longint;

const

MaxBufSize = $F000;

var

BufSize, N: Integer;

Buffer: PChar;

begin

if Count = 0 then

begin

Source.Position := 0;

Count := Source.Size;

end;

Result := Count;

if Count > MaxBufSize then BufSize := MaxBufSize else BufSize := Count;

GetMem(Buffer, BufSize);

try

while Count <> 0 do

begin

if Count > BufSize then N := BufSize else N := Count;

Source.ReadBuffer(Buffer^, N);

WriteBuffer(Buffer^, N);

Dec(Count, N);

end;

finally

FreeMem(Buffer, BufSize);

end;

end;

---------

{ TStringStream } // 具体类

// 具体类实现了源始的操作

function TStringStream.Read(var Buffer; Count: Longint): Longint;

begin

Result := Length(FDataString) - FPosition;

if Result > Count then Result := Count;

Move(PChar(@FDataString[FPosition + 1])^, Buffer, Result);

Inc(FPosition, Result);

end;

function TStringStream.Write(const Buffer; Count: Longint): Longint;

begin

Result := Count;

SetLength(FDataString, (FPosition + Result));

Move(Buffer, PChar(@FDataString[FPosition + 1])^, Result);

Inc(FPosition, Result);

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
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- 王朝網路 版權所有