计算机等级考试：Delphi的接口编程基础介绍

　　TIntfServiceClass = class(TObject, IImplInterface)

　　private

　　FImplService: IImplInterface;

　　//FSrvObj: TImplClass; //如果是用类对象委托的话

　　public

　　Constructor Create; overload;

　　Destructor Destroy; override;

　　Constructor Create(aClass: TClass); overload;

　　property MyService: IImplInterface read FImplService implements IImplInterface;

　　// property MyService: TImplClass read FSrvObj implements IImplInterface; //如果是用对象委托的话。

　　end;

　　实现如下：

　　constructor TIntfServiceClass.Create;

　　begin

　　FImplService := TImplClass.Create;

　　end;

　　constructor TIntfServiceclass.Create(aClass: TClass);

　　var

　　instance: TImplClass;

　　begin

　　instance := TImplClass(aClass.NewInstance);

　　FImplService := instance.Create;

　　end;

　　destructor TIntfServiceClass.Destroy;

　　begin

　　FImplService := nil; //遵照TImplClass使用引用计数来控制对象生命周期，看TImplClass的Destroy实现。

　　inherited;

　　end;