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 类_苹果. 上一页 [1] [2] [3] [4] 下一页 |
