Delphi 里的接口聚合的写法。俺自己写的测试例子代码

unit Unit1;

{-----------------------------------------------------------------------------

本程序演示接口委托聚合：

TMyClass 拥有并实现了 IMyTask 接口

TMyPlan 类拥有 IMyTask 接口，但没有去实现这个接口里的 SayHell 方法，而是通过

property MyTask: IMyTask read FMyClass implements IMyTask; 语句，将这个实现委托给内部的 FMyClass 接口实现。

传统的面向类的代码，当做一个包装类，包装多个子类在里面的时候，要在包装类的 public 里

再实现一次子类里的方法，在实现的方法里再调用子类的方法。这种办法也有人称为【委托】。

如果采用接口委托，则不用重复写代码，直接写一句：

property MyTask: IMyTask read FMyClass implements IMyTask; 则包装类

就不用在 public 里再次重复实现一次接口里的函数方法等等了。这种办法也有人称为【聚合】

以下代码测试通过。

pcplayer 2011-10-23 星期日。

-----------------------------------------------------------------------------}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

IMyTask = Interface

['{1B9D204E-1662-4280-A8E6-D7F518A425F5}']

function SayHello: string;

End;

TMyClass = class(TInterfacedObject, IMyTask)

private

public

function SayHello: string;

end;

TMyPlan = class(TInterfacedObject, IMyTask)

private

FMyClass: IMyTask;

public

constructor Create;

property MyTask: IMyTask read FMyClass implements IMyTask;

end;

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TMyClass }

function TMyClass.SayHello: string;

begin

Result := 'Hello';

end;

{ TMyPlan }

constructor TMyPlan.Create;

begin

inherited;

FMyClass := TMyClass.Create as IMyTask;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

MyPlan: IMyTask;

begin

MyPlan := TMyPlan.Create;

Label1.Caption := MyPlan.SayHello;

MyPlan := nil;

end;

end.