CSDN博客

img dhsoft

设计模式学习心得之二(Factory Method)

发表于2003/5/30 16:22:00  469人阅读

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);

 

这次特奉上源码,方便大家(其实是减少我描述的时间):),

表达能力有限,希望大家能够看懂,具体的还请看<<设计模式>>一书.如果有不当之处,敬请赐教.不要骂得太惨哟:)续.

0 0

相关博文

我的热门文章

img
取 消
img