文件名称：delphi 装饰模式
文件大小：206KB
文件格式：RAR
更新时间：2014-07-11 04:28:55
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;
【文件预览】：
装饰模式
----DecrPro.res(5KB)
----__history()
--------Lib.pas.~31~(1KB)
--------Lib.pas.~34~(1KB)
--------DecrPro.dpr.~1~(227B)
--------Lib.pas.~26~(1KB)
--------Main.pas.~6~(750B)
--------Main.dfm.~3~(635B)
--------Main.pas.~2~(367B)
--------Main.dfm.~2~(607B)
--------Main.pas.~1~(309B)
--------Main.pas.~3~(648B)
--------Lib.pas.~30~(1KB)
--------Lib.pas.~25~(1KB)
--------Main.pas.~5~(708B)
--------Lib.pas.~33~(1KB)
--------Lib.pas.~28~(1KB)
--------Lib.pas.~32~(1KB)
--------Main.pas.~4~(675B)
--------Lib.pas.~27~(1KB)
--------Main.dfm.~1~(329B)
--------Lib.pas.~29~(1KB)
----Lib.pas(1KB)
----Main.dfm(685B)
----DecrPro.dpr(248B)
----Lib.dcu(3KB)
----Main.dcu(4KB)
----DecrPro.dproj.local(1KB)
----Main.pas(759B)
----DecrPro.exe(445KB)
----DecrPro.identcache(327B)
----DecrPro.dproj(4KB)