如何在Delphi中實現線程安全列表包裝？

Question

我有一個列表的包裝，維護兩個Tstringlists和TClassList

我需要這是線程安全的，這樣的：

• 併發寫入不允許（等待應該是進入某種狀態）
• 讀而寫（反之亦然）是不允許的（等待某種狀態應該是進入）
• 併發讀取是允許

關於如何做到這一點的任何想法？我的直覺告訴我，它不僅需要一個關鍵部分，可能是一個信號量或「使用計數器」，可能是其中一個帶有CS的聯合。

我只是不太確定從哪裏開始 - 從英語到僞代碼，到delphi實現或外部鏈接的整體方法都將不勝感激。

Answer 1

你應該看看在sysutils.pas宣佈TMultiReadExclusiveWriteSynchronizer類...

Answer 2

看一看這個教程。 Threading the Delphi Way

看看第11章，但它都是好東西。

Answer 3

你真的應該看看TThreadList。

方法.Add，.Remove，.Clear自動爲您鎖定列表。如果需要，您還可以鎖定/根據需要解鎖：

x.LockList; 
try 
    //do whatever 
finally 
    x.Unlocklist; 
end; 

TMultiReadExclusiveWriteSynchronizer是一個大的想法，但我不知道他們是否曾經燙所有的蟲子。它一直在加載問題。