strategyunit1.pas

来自「DELPHI设计模式书籍」· PAS 代码 · 共 13 行

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