Delphi 设计模式：《HeadFirst设计模式》Delphi7代码
1. 复杂的子系统
unit uSubObject;
interface
type
{ TAmplifier与TTuner，TCDPlayer，TDVDPlayer相互依赖。 }
{ 在TTuner等的简单实现时用不到对TAmplifier的引用， }
{ 但现实生活中就应该让TAmplifier提供服务，所以这里保留了。 }
{ TProjector对TDVDPlayer的引用也是同样道理。 }
{ 前置TAmplifier也可以，把TAmplifier的声明放在TTuner等声明的后面 }
TTuner = class;
TCDPlayer = class;
TDVDPlayer = class;
TAmplifier = class(TObject)
private
FTuner: TTuner;
FCD : TCDPlayer;
FDVD: TDVDPlayer;
FDescription: String;
public
constructor Create(aDescription: String);
procedure Open;
procedure Off;
procedure SetStereoSound;
procedure SetSurroundSound;
procedure SetVolume(aLevel: Integer);
procedure SetTuner (aTuner: TTuner);
procedure SetCD (aCD : TCDPlayer);
procedure SetDVD(aDVD: TDVDPlayer);
function ToString: String;
end;
TTuner = class(TObject)
private
FAmplifier: TAmplifier;
FDescription: String;
FFrequency: Double;
public
constructor Create(aDescription: String; aAmplifier: TAmplifier);
procedure Open;
procedure Off;
procedure SetAm;
procedure SetFm;
procedure SetFrequency(aFrequency: Double);
function ToString: String;
end;
TCDPlayer = class(TObject)
private
FAmplifier: TAmplifier;
FDescription: String;
FCurrentTrack: Integer;
FTitle: String;
public
constructor Create(aDescription: String; aAmplifier: TAmplifier);
procedure Open;
procedure Off;
procedure Eject;
procedure Play(aTitle: String ); overload;
procedure Play(aTrack: Integer); overload;
procedure Stop;
procedure Pause;
function ToString: String;
end;
TDVDPlayer = class(TObject)
private
FAmplifier: TAmplifier;
FDescription:
相关文档：
本文的线性亮度/对比度调整方法是在《改进的图像线性亮度调整方法》一文中线性亮度调整方法与《Delphi图像处理 -- Photoshop图像亮度/对比度调整》中的对比度调整方法基础上形成的，其原理和特点可参见这2篇文章：
过程定义：
// 线性调整亮度，Value亮度值
procedure ImageL ......
当然用户要想通过数据浏览部件编辑修改数据库表中的记录字段时，还要受到其它因素的制约。除了数据浏览部件本身的ReadOnly属性设置为False外，还要设置其相应的字段部件和数据集部件的CanModify属性True性；设置TDataSource部件的AutoEdit属性为True，如果数据库表是SQL数据库服务器中的数� ......
1. 抽象工厂的产品
{《HeadFirst设计模式》工厂模式之抽象工厂 }
{ 抽象工厂的产品 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }
unit uPizzaIngredient;
interface
type
TDough = class(TObject)
end;
TThinCrustDough ......
适配器模式的主要意图是对现有类的接口进行转换，以满足目标类的需求。其次，可以给目标类的接口添加新的行为（主要指方法）。这一点容易与装饰模式混淆。从意图方面来看，装饰模式不改变（通常指增加）接口中的行为（主要指方法），而是在原有行为（主要指方法）的基础上添加新的功能；从类结构� ......
