Delphi的接口陷阱

领测软件测试网

var

  P: Pointer;

begin

  Result := @Dest;

  if Dest <> nil then

  begin

    P := Pointer(Dest);

    Pointer(Dest) := nil;

    IInterface(P)._Release;

  end;

end;

而_Release时又做了什么呢？

function TComponent._Release: Integer;

begin

  if FVCLComObject = nil then

    Result := -1   // -1 indicates no reference counting is taking place

文章来源于领测软件测试网 https://www.ltesting.net/