用 Delphi 学设计模式（二）之工厂方法篇（原创）[2]|中文方案文档站(提供各类方案下载,WORD文档下载,范文,案例等)

//窗体单元文件

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.

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

[入库：2005年8月18日] [更新：2007年3月24日]

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