Delphi 设计模式：《HeadFirst设计模式》Delphi7代码
1.主题与观察者
{《HeadFirst设计模式》之观察者模式 }
{ 主题与观察者 }
{ 编译工具 ：Delphi7.0 }
{ 联系方式 ：xshlife@163.com }
unit uWeatherReport;
interface
uses
Classes, SysUtils;
type
TObserver = class; { Forward声明，创建两个相互依赖的类 }
{ 抽象主题 }
TSubject = class(TObject)
procedure RegisterObserver(aObserver: TObserver); virtual; abstract;
procedure RemoveObserver (aObserver: TObserver); virtual; abstract;
procedure NotifyObserver; virtual; abstract;
end;
{ 具体主题 }
TWeatherData = class(TSubject)
private
FObservers: TList;
FTemp : Integer;
FHumidity : Integer;
FPresssure: Integer;
public
constructor Create;
destructor Destroy; override;
procedure RegisterObserver(aObserver: TObserver); override;
procedure RemoveObserver (aObserver: TObserver); override;
procedure NotifyObserver; override;
procedure MeasurementsChanged;
procedure SetMeasurements(aTemp, aHumidity, aPresssure: Integer);
end;
{**************************************************************************}
{ 抽象观察者 }
TObserver = class(TObject)
procedure UpDate(Temp, Humidity, Presssure: Integer); virtual; abstract;
procedure Display; virtual; abstract;
end;
{ 具体观察者 }
TCurrentConditionsDisplay = class(TObserver)
private
FTemp : Integer;
FHumidity : Integer;
FWeatherData: TSubject;
public
constructor Create(aWeatherData: TSubject);
destructor Destroy; override;
procedure UpDate(aTemp, aHumidity, aPresssure: Integer); override;
procedure Display; override;
end;
implementation
{ TWeatherData }
constructor TWeatherData.Create;
begin
FObservers := TList.Create;
end;
destructor TWeatherData.Destroy;
begin
FObservers.Clear;
FreeAndNil(FObservers);
inheri
相关文档：
经过多方查找，总算基本找齐战哥的处女作《悟透delphi》的手稿。
不敢独占，于是拿出来于大家共享。
第一章 DELPHI的原子世界
第二章 DELPHI与WIN32时空
第三章 多线程
第四章 接口
第五章 包
第六章 事件与消息
第七章 组织你的模块
第八章 探索数据库
第九章& ......
Python , Delphi , Loki 三个单词有趣的来源
许多程序设计语言和开发工具以及库的名字都来源与神话，颇有意思：
阿波罗是同时出现在希腊和罗马神话中的奥林帕斯十二大神之一。他除了拥有太阳神的身分，同时还有预言、艺术、医术之神的称号。阿波罗是宙斯和乐朵的儿子，和阿蒂蜜斯是� ......
Delphi 2010正式版下载(RAD Studio 2010下载)
在8月26日正式发布了RAD Studio 2010，就是我们所谓的Delphi 2010。RAD Studio 2010包含Delphi、C++ Builder和Delphi Prism等。 RAD Studio 2010 的新功能主要在于：增强的 IDE和可视化组件库 (VCL) 框架和基础的编译器以及其他各项工具，这使得你构建那些跨越所有的数据源和 ......
推荐给大家[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('对象所在地址：'+ ......
