中国开发网: 论坛: 程序员情感CBD: 贴子 72673
pcplayer: 看来是不需要。只要释放接口,对象就自动被释放了。
function TInterfacedObject._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
if Result = 0 then
Destroy;
end;

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录