| 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();
 
- }
 
- //---------------------------------------------------------------------------
 
 
  |