strategyunit1.pas

来自「设计模式delphi版给想学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