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

类_葡萄 = 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:=''''别怪我没告诉你，很酸！''''

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!