易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 设计模式:《HeadFirst设计模式》Delphi7代码

1. 产品类
{《HeadFirst设计模式》工厂模式之简单工厂 }
{ 产品类 }
{ 编译工具 :Delphi7.0 }
{ 联系方式 :xshlife@163.com }

unit uProducts;

interface

type
TPizza = class(TObject)
public
procedure Prepare; virtual; abstract;
procedure Bake; virtual; abstract;
procedure Cut; virtual; abstract;
procedure Box; virtual; abstract;
end;

TCheesePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TVeggiePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TClamPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TPepperoniPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

implementation

{ TCheesePizza }

procedure TCheesePizza.Bake;
begin
Writeln('烘烤奶油比萨');
end;

procedure TCheesePizza.Box;
begin
Writeln('将奶油比萨装盒');
end;

procedure TCheesePizza.Cut;
begin
Writeln('将奶油比萨切成片');
end;

procedure TCheesePizza.Prepare;
begin
Writeln('准备奶油比萨');
end;

{ TVeggiePizza }

procedure TVeggiePizza.Bake;
begin
Writeln('烘烤素比萨');
end;

procedure TVeggiePizza.Box;
begin
Writeln('将素比萨装盒');
end;

procedure TVeggiePizza.Cut;
begin
Writeln('将素比萨切成片');
end;

procedure TVeggiePizza.Prepare;
begin
Writeln('准备素比萨');
end;

{ TClamPizza }

procedure TClamPizza.Bake;
begin
Writeln('烘烤蛤蛎比萨');
end;

procedure TClamPiz


相关文档:

悟透delphi 第三章 多线程

第一章  DELPHI的原子世界
第二章  DELPHI与WIN32时空
第三章  多线程
第四章  接口
第五章  包
第六章  事件与消息
第七章  组织你的模块
第八章  探索数据库
第九章  多层体系结构
第十章  操作界面与操作逻辑
第十一章  面向对象数据库基础
第三章&n ......

悟透delphi 第九章 多层体系结构

第一章  DELPHI的原子世界
第二章  DELPHI与WIN32时空
第三章  多线程
第四章  接口
第五章  包
第六章  事件与消息
第七章  组织你的模块
第八章  探索数据库
第九章  多层体系结构
第十章  操作界面与操作逻辑
第十一章  面向对象数据库基础
 空 ......

悟透delphi 第八章 探索数据库

第一章  DELPHI的原子世界
第二章  DELPHI与WIN32时空
第三章  多线程
第四章  接口
第五章  包
第六章  事件与消息
第七章  组织你的模块
第八章  探索数据库
第九章  多层体系结构
第十章  操作界面与操作逻辑
第十一章  面向对象数据库基础
 空 ......

DELPHI深度探索 (第2版)PDF电子书

 推荐给大家[url=DELPHI深度探索 (第2版)PDF电子书][/url]
因为需要前几天在网上搜搜过这本书书,可没有,源码倒是有,今天打开经常去的网站,居然发现提供下载了,这个网站自己差不多每天都要打开看看,这几天忙糊涂了,居然没有看到,在这推荐给大家,能下载的,速度很快。
[url=http://www.delphifans.com/Soft ......

Delphi 设计模式:《HeadFirst设计模式》Delphi代码

1. 抽象工厂的产品
{《HeadFirst设计模式》工厂模式之抽象工厂 }
{ 抽象工厂的产品 }
{ 编译工具:Delphi7.0 }
{ E-Mail :xshlife@163.com }

unit uPizzaIngredient;

interface

type
TDough = class(TObject)
end;

TThinCrustDough ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号