本文完成以下内容：
1、代码用支持中文的 Delphi 2005 编译并通过，并去除了其中一些无关紧要的地方，如异常处理等 ；
2、重新设计一个情景，分别用“简单工厂模式”和“工厂方法模式”两种方法实现，请体会其中的差别 ；
3、在情景中添加一个子类后，请体会“简单工厂模式”和“工厂方法模式”两种方法不同的处理方式；
4、如果不理解什么是接口、多态、静态函数等概念，这里不作解释，请看第一章或找相关资料；
5、本文的情景和上文差不多，只是把工厂从“果园”变成了“水果小贩”；同样的三种水果：苹果、葡萄、草莓；每种水果都封装了两个逻辑，在和外部“交易”时会用到这两个逻辑。 最后，请重新回顾“开闭原则”
下面开始吧。
这里是简单工厂模式的实现方法，在这种模式中：
1、一个小贩要负责所有三种水果的交易，这对他来说是很大的挑战噢，不信您看！
2、顾客必须对水果的名字有一个准确地描述，这样水果才会卖给你，这很影响生意呀！
//简单工厂类和水果类单元文件
unit SimpleFactory;
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;
工厂类_小贩 = class(TObject)
public
class function 工厂(水果名:string): 接口_水果;
end;
implementation
{***** 类_苹果 *****}
function 类_苹果.提示():string;
begin
result:='削了皮再吃！';
end;
function 类_苹果.被评价():string;
begin
result:='恩，还不错，挺甜！';
end;
{*****类_葡萄 *****}
function 类_葡萄.提示():string;
begin
result:='别把核咽下去了！';
end;
function 类_葡萄.被评价():string;
begin
result:='没有核呀？？？';
end;
{***** 类_草莓 *****}
function 类_草莓.提示():string;
begin
result:='别怪我没告诉你，很酸！';
end;
function 类_草莓.被评价():string;
begin
result:='试试？哇，牙快酸掉了！';
end;
{***** 工厂类_小贩 *****}
class function 工厂类_小贩.工厂(水果名:string): 接口_水果;
begin
if(水果名='苹果')then result:=类_苹果.Create()
else if(水果名='葡萄')then result:=类_葡萄.Create()
else if(水果名='草莓')then result:=类_草莓.Create();
end;
end.
//窗体单元文件
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 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 类_苹果.被评价():string;
begin
result:='恩，还不错，挺甜！';
end;
{****** 类_葡萄 ******}
function 类_葡萄.提示():string;
begin
result:='别把核咽下去了！';
end;
function 类_葡萄.被评价():string;
begin
result:='没有核呀？？？';
end;
{****** 类_草莓 ******}
function 类_草莓.提示():string;
begin
result:='别怪我没告诉你，很酸！';
end;
function 类_草莓.被评价():string;
begin
result:='试试？哇，牙快酸掉了！';
end;
{***** 类_苹果小贩 *****}
function 类_苹果小贩.工厂(): 接口_水果;
begin
result:=类_苹果.Create()
end;
{***** 类_葡萄小贩 *****}
function 类_葡萄小贩.工厂(): 接口_水果;
begin
result:=类_葡萄.Create()
end;
{***** 类_草莓小贩 *****}
function 类_草莓小贩.工厂(): 接口_水果;
begin
result:=类_草莓.Create()
end;
end.
//窗体单元文件
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,FactoryMethod;
type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
procedure 交易(小贩:接口_小贩);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.交易(小贩:接口_小贩);
var
我买的水果:接口_水果;
begin
我买的水果:=小贩.工厂();
ShowMessage(我买的水果.提示);
ShowMessage(我买的水果.被评价);
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
交易(类_苹果小贩.Create);
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
交易(类_葡萄小贩.Create);
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
交
 【责编:Lili】 |
 |
|
|
|
