多个线程同时对多个文本文件操作，如何使用临界区？

Question

多个子线程同时对多个文本文件操作，如何使用临界区来锁定资源？如果定义程序的全局临界区来锁定，则多线程相当于单线程。如果在各个子线程内定义临界区，则对同步使用资源没有意义，一样会引起冲突。这种如何正确使用临界区呢？

Answer 1

对于读取可以不用同步，写入的话可以用TCriticalSection临界变量来同步

Answer 2

TCriticalSection和信号灯可以用数组

Answer 3

var
  Section: TRTLCriticalSection;
//
InitializeCriticalSection(Section);
DeleteCriticalSection(Section);
EnterCriticalSection(Section);
LeaveCriticalSection(Section);
//应用
begin
EnterCriticalSection(Section);
调用过写入文件过程
LeaveCriticalSection(Section);
end;