【文件属性】：
文件名称：delphi 简单工厂模式
文件大小：196KB
文件格式：RAR
更新时间：2014-07-10 09:33:41
delphi 简单工厂模式
type
TIProduct = class
str:string;
function Print():string;virtual;
end;
type
TProduct_A = class(TIProduct)
private
public
function Print():string;override;
end;
type
TProduct_B = class(TIProduct)
private
public
function Print():string;override;
end;
type
TSimpleFactory = class
private
public
function CreateProduct(A:string):TIProduct;
end;
【文件预览】：
简单工厂模式
----__history()
--------Main.pas.~7~(1KB)
--------Main.pas.~6~(751B)
--------Main.dfm.~3~(637B)
--------SimpleFactory.pas.~15~(954B)
--------SimpleFactory.pas.~20~(867B)
--------Main.pas.~2~(309B)
--------Main.dfm.~2~(637B)
--------Main.pas.~1~(310B)
--------SimpleFactory.pas.~16~(944B)
--------Main.pas.~3~(711B)
--------SimpleFactory.pas.~17~(926B)
--------SimpleFactory.pas.~18~(930B)
--------Main.pas.~5~(735B)
--------SimpleFactory.pas.~22~(936B)
--------SimpleFactory.pas.~23~(944B)
--------Main.pas.~4~(736B)
--------Main.pas.~8~(1KB)
--------Main.dfm.~1~(329B)
--------SimpleFactory.pas.~19~(929B)
--------SimpleFactory.pas.~21~(867B)
--------SimpleFactory.pas.~24~(952B)
--------SimplePro.dpr.~1~(272B)
----SimplePro.identcache(357B)
----SimpleFactory.dcu(3KB)
----Main.dfm(806B)
----Main.dcu(5KB)
----SimplePro.dpr(270B)
----SimplePro.exe(420KB)
----SimpleFactory.pas(952B)
----Main.pas(1KB)
----SimplePro.dproj(4KB)
----SimplePro.res(5KB)
----SimplePro.dproj.local(2KB)