用 Delphi 学设计模式（二）之工厂方法篇（原创）_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用 Delphi 学设计模式（二）之工厂方法篇（原创）

作者：闵涛文章来源：闵涛的学习笔记点击数：2208 更新时间：2009/4/23 18:27:20

Forms,
  Dialogs, StdCtrls,SimpleFactory;

type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    procedure 交易(水果名:string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.交易(水果名:string);
var
  我买的水果: 接口_水果;
begin
    我买的水果:=工厂类_小贩.工厂(水果名);
    ShowMessage(我买的水果.提示);
    ShowMessage(我买的水果.被评价);
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  交易(''''苹果'''');
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  交易(''''葡萄'''');
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  交易(''''草莓'''');
end;
end.

        这里是工厂方法模式的实现方法，在这种模式中
        1、每一种水果都对应有一个小贩负责，这样他们做起生意来就轻松多了，呵呵！
        2、顾客直接和小贩打交道，他知道您要什么，这样就不会因为说不清那讨厌的水果名字而吃不上说水果了。

//工厂类和水果类单元文件

unit FactoryMethod;

interface

type
  接口_水果 = interface(IInterface)
    function 提示():string;
    function 被评价():string;
  end;

  类_苹果 = class(TInterfacedObject, 接口_水果)
    function 提示():string;
    function 被评价():string;
  end;

  类_葡萄 = class(TInterfacedObject, 接口_水果)
    function 提示():string;
    function 被评价():string;
  end;

  类_草莓 = class(TInterfacedObject, 接口_水果)
    function 提示():string;
    function 被评价():string;
  end;

  接口_小贩 = interface(IInterface)
    function 工厂(): 接口_水果;
  end;

  类_苹果小贩 = class(TInterfacedObject, 接口_小贩)
   function 工厂(): 接口_水果;
  end;

  类_葡萄小贩 = class(TInterfacedObject, 接口_小贩)
    function 工厂(): 接口_水果;
  end;

  类_草莓小贩 = class(TInterfacedObject, 接口_小贩)
    function 工厂(): 接口_水果;
  end;

implementation

{****** 类_苹果 ******}

function 类_苹果.提示():string;
begin
  result:=''''削了皮再吃！'''';
end;

function 类_苹果.