unit Unit2
设计模式学习心得之二(Factory Method)
<<东辉软件>>陈建荣 QQ:68468540 欢迎大家和我交流心得
复习:上回讲了设计模式中的第一大类(对象创建型模式)中的第一小类(抽象工厂).说的再明白一点,实际上就是用一个:
mytest.msg;
而做到了用不同子类的不同方法,创建不同类的不同子类的对象.也就是说子类可以是:
TSubClassOne.Create;
TSubClassTwo.Create;
TSubClassThree.Create;
..............
而调用语句
Mytest.Test;
什么都不用改,也不必知道实现的是One,Two,还是Three,还可以是Four,Five..........从某种意义上来说,是实现了实例创建的多态.(不知道形容恰不恰当,如有不当请指出,谢谢).
一般情况下,我都使例子尽可能的简单.
//-------------------------------------------------------------------------------------------
好,复习就这样吧.原来想一个一个地按照顺序地写下来,只是Builder的例子想不出简单点的,所以就先跳过吧(以后想个简单点的补上),这次就来讲讲FACTORY
METHOD(工厂方法) ;
////////////////////////////////////////////////////////////////////////////////////
unit Unit2;interface
uses windows, dialogs, sysutils, classes;
type
//---------------------------------------------------------------------
TProductID = (One, Two, Three);
TProduct = class //定义产品父类
public
constructor Create; virtual;
end;
TProductOne = class(TProduct) //定义产品一
constructor Create; override;
end;
TProductTwo = class(TProduct) //定义产品二
constructor Create; override;
end;
TProductThree = class(TProduct) //定义产品三
constructor Create; override;
end;
// 当然.还可以是FOUR,FIVE...................
//---------------------------------------------------------------------
TCreator = class //定义创建者 ,实现缺省定义
public
constructor Create; virtual;
function CreateProduct(ProductID: TProductID): TProduct;
virtual;
end;
TMyCreator = class(TCreator) //定义我的创建者,实现我的定义
constructor Create; override;
function CreateProduct(ProductID: TProductID): TProduct;
override;
end;
//----------------------------------------------------------------------
implementation
constructor TCreator.Create;
begin
//
end;
function TCreator.CreateProduct(ProductID: TProductID): TProduct;
var
aProduct: TProduct;
begin
aProduct := nil;
if ProductID = One then
aProduct := TProductOne.Create;
if ProductID = Two then
aProduct := TProductTwo.Create;
Result := aProduct;
end;
//------------------------------------------------------------------------
constructor TMyCreator.Create;
begin
// inherited;
end;
function TMyCreator.CreateProduct(ProductID: TProductID): TProduct;
var
aProduct: TProduct;
aCreator: TCreator;
begin
aProduct := nil;
//在我的定义中调换One和Two;
if ProductID = One then
aProduct := TProductTwo.Create;
if ProductID = Two then
aProduct := TProductOne.Create;
if ProductID = Three then aProduct :=
TProductThree.Create;
if aProduct = nil then
//如果上述对象创建失败,那么就调用父类的工厂方法
begin
aCreator := Tcreator.Create;
aProduct := aCreator.CreateProduct(ProductID);
end;
Result := aProduct;
end;
//----------------------------------------------------------------------------
{ TProductOne }
constructor TProductOne.Create;
begin
showmessage('This is TproductOne');
end;
{ TProductThree }
constructor TProductThree.Create;
begin
showmessage('This is TproductThree');
end;
{ TProductTwo }
constructor TProductTwo.Create;
begin
showmessage('This is TproductTwo');
end;
{ TProduct }
constructor TProduct.Create;
begin
//
end;
end.
总的来说,工厂方法就是利用给Factory对象传递不同的参数，以返回具有相同基类或实现了同一接口的对象。如:
var mytest: Tcreator;
mytest := Tmycreator.Create;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
好了,接下来就改变工厂创建的参数就实现了对象创建时的多态
也就是说用FACTORY不同的子类的不同方法,创建同类的不同子类的对象.
注意:抽象工厂实现了实例创建时的多态;
用FACTORY的的不同的子类的不同方法,创建不同类的不同子类
的对象;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
mytest.CreateProduct(One);
mytest.CreateProduct(Two);
mytest.CreateProduct(Three);
这次特奉上源码,方便大家(其实是减少我描述的时间):),
表达能力有限,希望大家能够看懂,具体的还请看<<设计模式>>一书.如果有不当之处,敬请赐教.不要骂得太惨哟:)续.
