一个线程可以多次安全地调用 TCriticalSection.Acquire 吗？

Question

在Windows平台上，TCriticalSection是通过调用Windows API EnterCriticalSection/LeaveCriticalSection来实现的。 Microsoft 文档明确指出，在线程拥有临界区所有权后，它可以对 EnterCriticalSection 进行额外调用。

到目前为止一切顺利。

但是在 Delphi 支持的其他平台（如 OSX、iOS 和 Android）下的行为呢？

其他平台似乎也在使用 TMonitor。所以这个问题可以针对 TMonitor 重写。

Answer 1

在Windows以外的其他平台下实现TCriticalSection只是使用了TMonitor。因此，您的问题的答案归结为 TMonitor.Enter 的行为。至少文档说明 TMonitor.Enter 是可重入的。

documentation 的这一部分对您的回答表示“是”：

禁止所有其他线程访问指定对象，但调用线程除外。

TMonitor的相关代码部分在TMonitor.TryEnter:

function TMonitor.TryEnter: Boolean;
begin
  if FOwningThread = GetCurrentThreadId then  // check for recursion
  begin
    ...
    Result := True;
  ...