| 123456789101112131415161718192021222324252627282930313233343536 | //---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Global.h"//---------------------------------------------------------------------------#pragma package(smart_init)//---------------------------------------------------------------------------// TGuard//---------------------------------------------------------------------------__fastcall TGuard::TGuard(TCriticalSection * ACriticalSection) :  FCriticalSection(ACriticalSection){  DebugAssert(ACriticalSection != NULL);  FCriticalSection->Enter();}//---------------------------------------------------------------------------__fastcall TGuard::~TGuard(){  FCriticalSection->Leave();}//---------------------------------------------------------------------------// TUnguard//---------------------------------------------------------------------------__fastcall TUnguard::TUnguard(TCriticalSection * ACriticalSection) :  FCriticalSection(ACriticalSection){  DebugAssert(ACriticalSection != NULL);  FCriticalSection->Leave();}//---------------------------------------------------------------------------__fastcall TUnguard::~TUnguard(){  FCriticalSection->Enter();}//---------------------------------------------------------------------------
 |