delphi 装饰模式

TPerson = class private Name:string; ListBox:TListBox; public constructor Create(AName:string;AListBox:TListBox); overload; constructor Create;overload; procedure Show;virtual; end; TFinery = class(TPerson) protected Component:TPerson; public procedure Decorator(Acomponent:TPerson); procedure Show;override; end; TShirts = class(TFinery) public procedure Show;override; end; TBigTrouser = class(TFinery) public procedure Show;override; end;