小编qgi*_*qgi的帖子

和线程安全吗TInterfacedObject._Release？TInterfacedObject._AddRef我可以看到FRefCount它是线程安全的，但Destroy不受锁或其他东西的保护。

function TInterfacedObject._Release: Integer;
begin
  Result := InterlockedDecrement(FRefCount);
  if Result = 0 then
    Destroy;
end;

不同的线程Destroy同时执行是否会导致竞争条件？

如何在一个线程中安全地处理一个对象,而另一个线程可以在Delphi中使用该对象？有什么想法或文章要阅读？