計(jì)算機(jī)等級(jí)考試：Delphi的接口編程基礎(chǔ)介紹

　　上面的代碼執(zhí)行的話會(huì)產(chǎn)生存取違規(guī)錯(cuò)誤，是因?yàn)閷?duì)接口置nil時(shí)已釋放接口，而FreeAndNil(aObj)會(huì)再釋放aIntf一次，而在對(duì)aIntf置nil時(shí)已釋放了該對(duì)象。解決這個(gè)問題只要不讓接口干擾對(duì)象的生命期就可以了，在Release中只需減引用計(jì)數(shù)而不做釋放的動(dòng)作。

　　function TIntfClass._Release: Integer;

　　begin

　　Result := InterlockedDecrement(FRefCount);

　　end;

　　5、接口的委托(Interface Delegation)

　　分為兩種：

　　1. 對(duì)象接口委托;

　　2. 類對(duì)象委托。

　　對(duì)象接口委托，假如已有下面接口定義：

　　IImplInterface = interface(IInterface)

　　function ConvertToUSD(const iNTD: Integer): Double;

　　function ConvertToRMB(const iNTD: Integer): Double;

　　end;

　　接著有一個(gè)類實(shí)現(xiàn)了該接口：

　　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;

　　... ...

　　現(xiàn)在有另外一個(gè)類TIntfServiceClass要實(shí)現(xiàn)IImplInterface接口，不用重新定義，只須使用上面的TImplClass就可以：