delphi 线程资源临界区实现方式的比较

临界区 TRTLCriticalSection 和 TCriticalSection
临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别
TRtlCriticalSection 是一个结构体，在windows单元中定义；
是InitializeCriticalSection，EnterCriticalSection，LeaveCriticalSection, DeleteCriticalSection 等这几个kernel32.dll中的临界区操作API的参数；
TCriticalSection是在SyncObjs单元中实现的类，它对上面的那些临界区操作API函数进行了了封装，简化并方便了在Delphi的使用；
如TCriticalSection.Enter;就是调用了EnterCriticalSection这个API函数。
多线程程序中，如果各个线程要访问同一个资源，如同一个变量
这时就要使用线程同步技术，才不会使线程之间产生冲突和干扰
线程同步有多种办法，使用临界区是其中最简单，也是效率最高的办法(CPU占用时间最少)
使用临界区代码如下：
先声明一个TRTLCriticalSection类型的全局变量
var
MyCs:TRTLCriticalSection;
在程序开始或建立线程之前，初始化
InitializeCriticalSection(MyCs);//初始化临界区
在程序结束或所有线程结束后，删除它
DeleteCriticalSection(MyCs);//删除临界区
再在线程中要同步的地方加入
EnterCriticalSection(MyCs); //进入临界区
try
//程序代码
finally
LeaveCriticalSection(MyCs); //离开临界区
end;

转自：
https://www.cnblogs.com/jieling/p/6159576.html

TRTLCriticalSection和synchronize有什么区别？
答：相同点：都是阻止其他线程执行，保证当前执行线程安全。
不同点：
Synchronize：会判断此线程是否结束，如果没有结束，继续执行当前线程，中间会停顿几秒，不会继续执行其他线程，
临界区：会记录线程队列，等上一个线程结束，再执行下一个线程。
Synchronize 即不允许别一个线程来调用这个函数，避免多个子线程同时访问该线程资源。
　　1、如果是将数据同步回主线程，如果过程没有执行完，主窗体（线程）会阻塞（卡主）, 即 避免多个子线程同时访问主线程资源。
　　2、如果是将数据同步回子线程，即相当于阻止其他线程访问当前执行的线程。
为什么要有 Synchronize ？
Synchronize 经常用在子线程与主线程的资源交互上，如果不采用 Synchronize 则会出现，线程执行完后和主线程的交互上会出现问题。
例如：线程中创建线程，线程中创建进程，线程中创建窗体。
转自：
https://www.cnblogs.com/guorongtao/p/12362307.html

感谢 耗喜天涯与滔 Roy的分享