strategyunit1.pas

DELPHI设计模式书籍

unit StrategyUnit1;

interface
type
  TCoord = array[0..99, 0..99] of integer;
  TCompositor = class;
  TComponent = class
  end;

  TComposition = class
  private
    f_compositor: TCompositor;
    f_component: TComponent; //TComponent