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將失敗，並且第一個線程已經擁有該鎖。