Delphi 设计模式：《HeadFirst设计模式》Delphi代码
一、一个叫声接口和几只鸭子
1、从一个叫声接口开始
{《HeadFirst设计模式》Delphi代码之模式小结 }
{ 一个叫声接口 }
{ 编译工具：Delphi2010 for win32 }
{ E-Mail ：xshlife@163.com }
unit uQuackable;
interface
type
IQuackable = interface(IInterface)
procedure Quack;
end;
implementation
end.
2、几只鸭子实现了该叫声接口。
{《HeadFirst设计模式》Delphi代码之模式小结 }
{ 几只鸭子实现了声接口 }
{ 编译工具：Delphi2010 for win32 }
{ E-Mail ：xshlife@163.com }
unit uDuck;
interface
uses
uQuackable;
type
TMallardDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;
TRedHeadDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;
TDuckCall = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;
TRubberDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;
implementation
{ TMallardDuck }
procedure TMallardDuck.Quack;
begin
Writeln('Quack');
end;
{ TRedHeadDuck }
procedure TRedHeadDuck.Quack;
begin
Writeln('Quack');
end;
{ TDuckCall }
procedure TDuckCall.Quack;
begin
Writeln('Kwak');
end;
{ TRubberDuck }
procedure TRubberDuck.Quack;
begin
Writeln('Squeak');
end;
end.
3、叫声接口为鸭鸣器提供服务。叫声接口与鸭鸣器的关系比与它的实现类更密切。
{《HeadFirst设计模式》Delphi代码之模式小结 }
{ 鸭鸣模拟器 }
{ 编译工具：Delphi2010 for win32 }
{ E-Mail ：xshlife@163.com }
unit uDuckSimulator;
interface
uses
uQuackable, uDuck;
type
TDuckSimulator = class(TObject)
private
procedure Simulate(aDuck: IQuackable); overload;
public
procedure Simulate; overload;
end;
implementation
{ TDuck
相关文档：
网上搜集资料 参考写的代码 实现控件的动态创建 完整代码如下：
(实现界面)
-------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TControlClass =class ......
摘要摘要：本文分析了ODBC数据源设置的原理以及ODBC数据源和Delphi数据库别名的关系。并在此基础上，介绍了在Delphi5数据库应用程序安装、运行中，如何编程实现ODBC数据源和Delphi数据库别名的设置。
关键字摘要：Delphi、数据库、ODBC
一、前言
Delphi的特色之一就是方便而强大的开发数据库的能力，只要轻击几下鼠标，� ......
Delphi2010集成了fastMM，这回大家调试程序是的时候可以方便地检查内存泄露了。
使用方法如下：
在project中，添加一行 ReportMemoryLeaksOnShutdown := DebugHook<>0;
DebugHook<>0 目的是保证单独运行exe文件不会弹出内存泄露框，源码可以不用注释掉此行
program Project1;
uses
Forms,
......
Python , Delphi , Loki 三个单词有趣的来源
许多程序设计语言和开发工具以及库的名字都来源与神话，颇有意思：
阿波罗是同时出现在希腊和罗马神话中的奥林帕斯十二大神之一。他除了拥有太阳神的身分，同时还有预言、艺术、医术之神的称号。阿波罗是宙斯和乐朵的儿子，和阿蒂蜜斯是� ......
