《GOF设计模式》—组合（COMPOSITE）—Delphi源码示例：组合接口

示例：组合接口
说明：
（1）、定义
将对象组合成树形结构以表示“部分-整体”的层次结构。Composite使得用户对单个对象和组合对象的使用具有一致性。
（2）、结构



组合：
Component：为组合中的对象声明接口。在适当的情况下，实现所有类共有接口的缺省行为。声明一个接口用于访问和管理Component的子组件。在递归结构中定义一个接口，用于访问一个父部件，并在合适的情况下实现它(可选)。
Leaf：在组合中表示叶节点对象，叶节点没有子节点。在组合中定义图元对象的行为。
Composite：定义有子部件的那些部件的行为。存储子部件。在Component接口中实现与子部件有关的操作。
客户端：
Client：通过Component接口操纵组合部件的对象。
协作：
用户使用Component类接口与组合结构中的对象进行交互。如果接收者是一个叶节点,则直接处理请求。如果接收者是Composite,它通常将请求发送给它的子部件，在转发请求之前与/或之后可能执行一些辅助操作。

代码：

unit uComposite;

interface

uses
Dialogs;

type
TComponent = class
public
procedure Operation; virtual; abstract;
procedure Add(AComponent: TComponent); virtual;
procedure Remove(AComponent: TComponent); virtual;
function GetChild(const AIndex: integer): TComponent; virtual;
end;
TLeaf = class(TComponent)
public
procedure Operation; override;
end;
TComposite = class(TComponent)
private
FChilds: array of TComponent;
public
constructor Create;
destructor Destroy; override;
//---
procedure Operation; override;
procedure Add(AComponent: TComponent); override;
procedure Remove(AComponent: TComponent); override;
function GetChild(const AIndex: integer): TComponent; override;
end;

implementation

procedure TComponent.Add(AComponent: TComponent);
begin
end;

procedure TComponent.Remove(AComponent: TComponent);
begin
end;

function TComponent.GetChild(const AIndex: integer): TComponent;
begin
Result := nil;
end;

procedure TLeaf.Operation;
begin
ShowMessage('Leaf');
end;

constructor TComposite.Create;
begin
SetLength(FChilds,0);
end;

destructor TComposite.Destroy;
//---
procedure _Clear;
var
i: integer;
begin
for i := low(FChilds) to high(FChilds) do
FChilds[i].Free;
SetLength(FChilds,0);
end;
begin
_Clear;
//---
inherited;
end;

procedure TComposite.Add(AComponent: TComponent);
var
ACount: integer;
begin
ACount := Length(FChilds);
SetLength(FChilds,ACount + 1);
FChilds[ACount] := AComponent;
end;

procedure TComposite.Remove(AComponent: TComponent);
//---
function _IndexOf: integer;
var
i: integer;
begin
for i := low(FChilds) to high(FChilds) do
begin
if FChilds[i] = AComponent then
begin
Result := i;
exit;
end;
end;
//---
Result := -1;
end;
//---
procedure _Delete(AIndex: integer);
var
ACount: integer;
begin
ACount := Length(FChilds);
if AIndex < ACount - 1 then
Move(FChilds[AIndex + 1],FChilds[AIndex],(ACount - AIndex - 1) * 4);
SetLength(FChilds,ACount - 1);
end;
var
AIndex: integer;
begin
AIndex := _IndexOf;
if AIndex >= 0 then
_Delete(AIndex);
end;

function TComposite.GetChild(const AIndex: integer): TComponent;
begin
Result := FChilds[AIndex];
end;

procedure TComposite.Operation;
var
i: integer;
begin
ShowMessage('Composite');
//---
for i := low(FChilds) to high(FChilds) do
FChilds[i].Operation;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
AComposite:TComponent;
begin
AComposite := TComposite.Create;
try
AComposite.Add(TLeaf.Create);
AComposite.Add(TLeaf.Create);
AComposite.Add(TComposite.Create);
//---
AComposite.Operation;
finally
AComposite.Free;
end;
end;