Delphi 设计模式：《HeadFirst设计模式》Delphi7代码

 1.策略类
{《HeadFirst设计模式》之策略模式 }
{ 本单元中的类为策略类 }
{ 编译工具: Delphi7.0 }
{ E-Mail : xshlife@163.com }

unit uStrategy;

interface

type
{飞行接口，及其实现类 }

IFlyBehavior = Interface(IInterface)
procedure Fly;
end;

TFlyWithWings = class(TInterfacedObject, IFlyBehavior)
public
procedure Fly;
end;

TFlyNoWay = class(TInterfacedObject, IFlyBehavior)
public
procedure Fly;
end;

TFlyRocketPowered = class(TInterfacedObject, IFlyBehavior)
public
procedure Fly;
end;

{叫声接口，及其实现类}

IQuackBehavior = Interface(IInterface)
procedure Quack;
end;

TQuack = class(TInterfacedObject, IQuackBehavior)
public
procedure Quack;
end;

TMuteQuack = class(TInterfacedObject, IQuackBehavior)
public
procedure Quack;
end;

TSqueak = class(TInterfacedObject, IQuackBehavior)
public
procedure Quack;
end;

implementation

{ TFlyWithWings }

procedure TFlyWithWings.Fly;
begin
Writeln('I am flying!');
end;

{ TFlyNoWay }

procedure TFlyNoWay.Fly;
begin
Writeln('I can not fly!');
end;

{ TFlyRocketPowered }

procedure TFlyRocketPowered.Fly;
begin
Writeln('I am flying with a rocket!');
end;

{ TQuack }

procedure TQuack.Quack;
begin
Writeln('Quack');
end;

{ TMuteQuack }

procedure TMuteQuack.Quack;
begin
Writeln('<Silence>');
end;

{ TSqueak }

procedure TSqueak.Quack;
begin
Writeln('Squeak');
end;

end.

2.策略的用户
  {《HeadFirst设计模式》之策略模式 }
{ 本单元中的类为策略的用户， }
{ 一般策略模式中的上下文接口已包含在用户类中。}
{ 编译工具: Delphi7.0 }
{ E-Mail : xshlife@163.com }

unit uDuck;

interface

uses
uStrategy;

type
{ 鸭子抽象类 }

TDuck