TCriticalSection TryEnter方法总是返回True

Question

在TCriticalSection上调用TryEnter方法时，结果始终为真。当然，如果它能够获得锁定，这应该只会恢复真实？

var 
    MyCritSect: TCriticalSection; 

begin 
    MyCritSect := TCriticalSection.Create; 
    try 
    // MyCritSect.Enter; 
    Writeln(BoolToStr(MyCritSect.TryEnter, True)); // This should return True 
    Writeln(BoolToStr(MyCritSect.TryEnter, True)); // This should return False? 
    Readln; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

即使你取消注释MyCritSect.Enter;线仍然为两个呼叫TryEnter返回True。

我使用德尔福XE和Windows 10

Answer 1

关键部分是re-entrant locks。从documentation：

当一个线程拥有一个关键部分，它可以对EnterCriticalSection的或TryEnterCriticalSection额外通话无阻塞执行。这可以防止线程在等待它已经拥有的关键部分时发生死锁。

如果从不同的线程创建并调用TryEnter将失败，并且第一个线程已经拥有该锁。