Delphi 设计模式：《HeadFirst设计模式》Delphi7代码
1.被装饰者
{《HeadFirst设计模式》之装饰模式 }
{ 本单元中的类为被装饰者 }
{ 编译工具: Delphi7.0 }
{ E-Mail : xshlife@163.com }
unit uComponent;
interface
type
TBeverage = class(TObject) //抽象饮料类
protected
FDescription: String;
public
function GetDescription: String; virtual;
function Cost: Double; virtual; abstract;
end;
TEspresso = class(TBeverage) //浓咖啡饮料类
public
constructor Create;
function Cost: Double; override;
end;
THouseBlend = class(TBeverage) //具体HouseBlend饮料类
public
constructor Create;
function Cost: Double; override;
end;
TDarkRoast = class(TBeverage) //具体DarkRoast饮料类
public
constructor Create;
function Cost: Double; override;
end;
implementation
{ TBeverage }
function TBeverage.GetDescription: String;
begin
Result := FDescription;
end;
{ TEspresso }
function TEspresso.Cost: Double;
begin
Result := 1.99;
end;
constructor TEspresso.Create;
begin
FDescription := 'Espresso';
end;
{ THouseBlend }
function THouseBlend.Cost: Double;
begin
Result := 0.89;
end;
constructor THouseBlend.Create;
begin
FDescription := 'House Blend Coffee';
end;
{ TDarkRoast }
function TDarkRoast.Cost: Double;
begin
Result := 0.99;
end;
constructor TDarkRoast.Create;
begin
FDescription := 'Dark Roast Coffee';
end;
end.
2.装饰者
{《HeadFirst设计模式》之装饰模式 }
{ 装饰者既继承又组合被装饰者。继承 }
{ 在这里的意图主要是类型匹配 —— }
{ 与被装饰者是同一类型。 }
{ 编译工具: Delphi7.0 }
{ E-Mail : xshlife@163.com }
unit uDecorator;
interface
uses
uComponent;
type
TCondimentDecorator = class(TBeverage) //抽象装饰者
end;
TMocha = class(TCondimentDecorator) //具体装饰者：Mocha
private
FBeverage: TBever
相关文档：
图像的中值滤波，就是在以某一像素为中心的n阶像素矩阵中，找出R、G、B各分量的中间值来分别替代该像素的RGB值，从而达到对图像噪声滤波的目的。这里的中间值并非像素矩阵R、G、B各分量的的算术平均值，而是像素矩阵R、G、B各分量排序后的中位数值。
下面是Delphi图像中值滤波的实� ......
Delphi2010集成了fastMM，这回大家调试程序是的时候可以方便地检查内存泄露了。
使用方法如下：
在project中，添加一行 ReportMemoryLeaksOnShutdown := DebugHook<>0;
DebugHook<>0 目的是保证单独运行exe文件不会弹出内存泄露框，源码可以不用注释掉此行
program Project1;
uses
Forms,
......
本文是基于《GDI+在Delphi程序的应用 – Photoshop色相/饱和度/明度功能》一文的BASM实用性过程，有关实现原理可参见《GDI+ 在Delphi程序的应用 -- 图像饱和度调整》和《GDI+ 在Delphi程序的应用 -- 仿Photoshop的明度调整》，纯PAS实现代码和测试例子代码见《GDI+在Delphi程序的应用 – Phot ......
1. 抽象工厂的产品
{《HeadFirst设计模式》工厂模式之抽象工厂 }
{ 抽象工厂的产品 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }
unit uPizzaIngredient;
interface
type
TDough = class(TObject)
end;
TThinCrustDough ......
继承是为了表现类与类之间“是一种”关系，是多态存在的基础，继承是面象对象必不可少的基础，只支持封装而不支持继承的语言只能称为“基于对象”（Object-Based）面非面向对象“Object-Oriented”;
Object Pascal只支持单继承，也就是一个派生类只能有一个基类
但可以实现多个接口 ......
