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

　　上面的代码执行的话会产生存取违规错误，是因为对接口置nil时已释放接口，而FreeAndNil(aObj)会再释放aIntf一次，而在对aIntf置nil时已释放了该对象。解决这个问题只要不让接口干扰对象的生命期就可以了，在Release中只需减引用计数而不做释放的动作。

　　function TIntfClass._Release: Integer;

　　begin

　　Result := InterlockedDecrement(FRefCount);

　　end;

　　5、接口的委托(Interface Delegation)

　　分为两种：

　　1. 对象接口委托;

　　2. 类对象委托。

　　对象接口委托，假如已有下面接口定义：

　　IImplInterface = interface(IInterface)

　　function ConvertToUSD(const iNTD: Integer): Double;

　　function ConvertToRMB(const iNTD: Integer): Double;

　　end;

　　接着有一个类实现了该接口：

　　TImplClass = class(TObject, IImplInterface)

　　private

　　FRefCount: Integer;

　　public

　　function ConvertToUSD(const iNTD: Integer): Double;

　　...

　　end;

　　implementation

　　function TImplClass.QueryInterface(const IID: TGUID; out Obj): HResult;

　　begin

　　if GetInterface(IID, Obj) then

　　Result := 0

　　else

　　Result := E_NOINTERFACE;

　　end;

　　function TImplClass._Release: Integer;

　　begin

　　Result := InterlockedDecrement(FRefCount);

　　if Result = 0 then

　　Destroy;

　　end;

　　... ...

　　现在有另外一个类TIntfServiceClass要实现IImplInterface接口，不用重新定义，只须使用上面的TImplClass就可以：