Delphi 设计模式：《HeadFirst设计模式》Delphi7代码
1. 命令的接收者
{《HeadFirst设计模式》之命令模式 }
{ 本单元中的类为命令的接收者 }
{ 编译工具 ：Delphi7.0 }
{ 联系方式 ：xshlife@163.com }
unit uReceiveObject;
interface
type
TLight = class(TObject)
private
FLocation: String;
public
constructor Create(aLocation: String);
procedure Open;
procedure Off;
end;
TCeilingFan = class(TObject)
private
FLevel : Integer;
FLocation: String;
function GetSpeed: Integer;
public
constructor Create(aLocation: String);
procedure High;
procedure Medium;
procedure Low;
procedure Off;
property Speed: Integer read GetSpeed;
end;
TGarageDoor = class(TObject)
private
FLocation: String;
public
constructor Create(aLocation: String);
procedure Up;
procedure Down;
procedure Stop;
procedure LightOn;
procedure LightOff;
end;
TStereo = class(TObject)
private
FLocation: String;
public
constructor Create(aLocation: String);
procedure Play;
procedure Off;
procedure SetCD;
procedure SetDVD;
procedure SetRadio;
procedure SetVolume(aVolume: Integer);
end;
TTV = class(TObject)
private
FLocation: String;
FChannel : Integer;
public
constructor Create(aLocation: String);
procedure Open;
procedure Off;
procedure SetInputChannel;
end;
THottub = class(TObject)
private
FOpen: Boolean;
FTemp: Integer;
function GetTemp: Integer;
procedure SetTemp(const Value: Integer);
public
function Open: Boolean;
function Off : Boolean;
procedure BubblesOpen;
procedure BubblesOff;
procedure JetsOpen;
procedure JetsOff;
procedure Heat;
procedure Cool;
property Temp: Integer read GetTemp write SetTemp;
end;
implementation
const
SPEED_
相关文档：
本文是基于《GDI+在Delphi程序的应用 – Photoshop色相/饱和度/明度功能》一文的BASM实用性过程，有关实现原理可参见《GDI+ 在Delphi程序的应用 -- 图像饱和度调整》和《GDI+ 在Delphi程序的应用 -- 仿Photoshop的明度调整》，纯PAS实现代码和测试例子代码见《GDI+在Delphi程序的应用 – Phot ......
Python , Delphi , Loki 三个单词有趣的来源
许多程序设计语言和开发工具以及库的名字都来源与神话，颇有意思：
阿波罗是同时出现在希腊和罗马神话中的奥林帕斯十二大神之一。他除了拥有太阳神的身分，同时还有预言、艺术、医术之神的称号。阿波罗是宙斯和乐朵的儿子，和阿蒂蜜斯是� ......
1.主题与观察者
{《HeadFirst设计模式》之观察者模式 }
{ 主题与观察者 }
{ 编译工具 ：Delphi7.0 }
{ 联系方式 ：xshlife@163.com }
unit uWeatherReport;
interface
uses
Classes, SysUtils;
type
TObserver = class; { Forward声明，创建两个相 ......
继承是为了表现类与类之间“是一种”关系，是多态存在的基础，继承是面象对象必不可少的基础，只支持封装而不支持继承的语言只能称为“基于对象”（Object-Based）面非面向对象“Object-Oriented”;
Object Pascal只支持单继承，也就是一个派生类只能有一个基类
但可以实现多个接口 ......
