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

//窗体单元文件

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(我买的水果.被评价);