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_
相关文档：
一、一个叫声接口和几只鸭子
1、从一个叫声接口开始
{《HeadFirst设计模式》Delphi代码之模式小结 }
{ 一个叫声接口 }
{ 编译工具：Delphi2010 for win32 }
{ E-Mail ：xshlife@163.com }
unit uQuackable;
interface
type
IQuackable = in ......
推荐给大家[url=DELPHI深度探索 （第2版）PDF电子书][/url]
因为需要前几天在网上搜搜过这本书书，可没有，源码倒是有，今天打开经常去的网站，居然发现提供下载了，这个网站自己差不多每天都要打开看看，这几天忙糊涂了，居然没有看到，在这推荐给大家，能下载的，速度很快。
[url=http://www.delphifans.com/Soft ......
//定义MyClass
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
//取值
var
obj: TMyClass;
begin
obj := TMyClass.Create;
with Memo1.Lines do
begin
Add('对象大小:' + IntToStr(obj.InstanceSize));
Add('对象所在地址：'+ ......
Delphi TIniFile 类 操作ini配置文件
2007年12月08日 星期六 09:56
一、有必要了解INI文件的结构：
;注释
[小节名]
关键字=值
...
---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。
---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没� ......
