对象合成复用之策略模式

对象合成：通过获得对其它对象的引用而在运行期动态定义的。

在一个新的对象里面使用一些已有的对象，使之成为新对象的一部分，新的对象通过向这些对象的委派责任达到复用已有功能的目的。

以策略模式举例：
type
  TStrategy=class(TObject)//抽象策略
  public
    procedure Hello;virtual;abstract;
  end;

  TConcreteStrategyA=class(TStrategy)//具体策略A
  public
    procedure Hello;override;
  end;

  TConcreteStrategyB=class(TStrategy)//具体策略B
  public
    procedure Hello;override;
  end;

  TContext=class(Tobject)//上下文
  private
    FStrategy:TStrategy;//引用已有的对象
    Procedure SetStrategy(Value:TStrategy);
  public
    procedure ContextInterface;//向已有的对象委派责任
    property Strategy:TStrategy read FStrategy write SetStrategy;
  end;

implementation

procedure TConcreteStrategyA.Hello;
begin
  //do something
end;

procedure TConcreteStrategyB.Hello;
begin
  //do something
end;

procedure TContext.ContextInterface;
begin
  Strategy.Hello;
end;

procedure TContext.SetStrategy(Value:TStrategy);
begin
  FStrategy:=Value;
end;

这样在运行时通过用户给出的对象类型，系统会自动调用给定对象的具体方法。