在一个单元中声明的多个类互为友元类
type
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FName: string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
obj: TMyClass;
begin
obj := TMyClass.Create;
obj.Name := Form1.FName;
ShowMessage(obj.Name);
obj.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FName := '兵临成下';
end;
结果如下：
......

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;
......

 继承是为了表现类与类之间“是一种”关系，是多态存在的基础，继承是面象对象必不可少的基础，只支持封装而不支持继承的语言只能称为“基于对象”（Object-Based）面非面向对象“Object-Oriented”;
Object Pascal只支持单继承，也就是一个派生类只能有一个基类
但可以实现多个接口 ......

模板方法模式定义了一个算法骨架，允许子类对算法的某个或某些步骤进行重写（override)。
1.CoffeineBeverageWithHook
{《HeadFirst设计模式》之模板方法模式 }
{ 编译工具: Delphi7.0 }
{ E-Mail : xshlife@163.com }

unit uCoffeineBeverageWithHook;

interface

uses
SysUtils;

type
TCoffeineBeverageWithHook = class(TObject)
protected
procedure BoilWater;
procedure Brew; virtual; abstract;
procedure PourInCup;
procedure AddCondiments; virtual; abstract;
function CustomerWantsCondiments: Boolean; virtual; { 钩子 }
public
procedure PrepareRecipe; { 模板方法 }
end;

TCoffeeWithHook = class(TCoffeineBeverageWithHook)
private
function GetUserInput: string;
public
procedure Brew; override;
procedure AddCondiments; override;
function CustomerWantsCondiments: Boolean; override;
end;

TTeaWithHook = class(TCoffeineBeverageWithHook)
private
function GetUserI ......

Delphi TIniFile 类 操作ini配置文件
2007年12月08日 星期六 09:56
一、有必要了解INI文件的结构：
;注释
[小节名]
关键字=值
...
---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。
---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。
---- 注释以分号“;”开头。
二、定义
---- 1、在Interface的Uses节增加IniFiles；
---- 2、在Var变量定义部分增加一行：
myinifile:Tinifile;
---- 然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。
......

      容器的主要职责有两个：存放元素和浏览元素。根据单一职责原则（SRP）要将二者分开，于是将浏览功能打包封装就有了迭代器。
      用迭代器封装对动态数组的遍历：
1.容器中的元素类
{《HeadFirst设计模式》之迭代器模式 }
{ 容器中的元素类 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }

unit uItem;

interface

type
TMenuItem = class(TObject)
private
FName: String;
FDescription: String;
FVegetarian : Boolean;
FPrice: Double;
public
constructor Create(aName, aDescription: String;
aVegetarian : Boolean;
aPrice: Double);
function GetName: String;
function GetDescription: String;
function GetPrice: Double;
function IsVegetarian: Boolean;
end;

implementation

{ TMenuItem }

constructor TMenuItem.Create(aName, aDescription: String;
......