delphi多线程加锁

   前几日，调试一BUG，过程先不说，最后调试到MM，即Debug dcu，然后进入到GetMem.inc中的Get/FreeMem函数处后，出现AV。

   然后一通找。。。郁闷了N天，后来发现将MM切换到QMM后，一切正常，然后再切回原MM，BUG出现。。。

   按经验，此类问题一般由于线程未有锁保护引起，但就是没找到原因所在。

   好吧，也不怎么滴，突然想起IsMultiThread变量，想起MM的Get/Free/Realloc都需要这个玩意进行保护，而VCL中，只有一个地方对这变量进行操作: Classes.TThread.Create->System.BeginThread

   然后才想起自己未使用TThread，使用API.CreateThread进行创建线程，而它未对IsMultiThread进行置true操作，问题找到，BUG解除。

 

遂，本文记录此问题。

 

BUG形成：

   1：程序未使用TThread或BeginThread进行创建线程，这样，它就不会对IsMultiThread进行操作

   2：自行使用API.Windows.CreateThread创建线程，且未对IsMultiThread置true

   3：在创建的线程中，进行Get/Free/ReallocMem，并与其它线程（如主线程）进行交互该内存块

 

BUG展现&