标签：begin end 中加 解锁 TObject GCTokenLock GlobalContextTokenLock TMonitor

今天学习Delphi System.Rtti的源代码，进一步学习到了如何在线程中使用锁。参考官方的代码整理出来分享：

var
  _GlobalContextTokenLock: TObject;

定义一个全局的实例，供TMonitor使用。

再写一个方法，返回_GlobalContextTokenLock：

function GCTokenLock: TObject; inline;
begin
  if _GlobalContextTokenLock = nil then
    _GlobalContextTokenLock := TObject.Create;
  Result := _GlobalContextTokenLock
end;

在这个单元的initialization及finalization段中建立及释放这个对象：

initialization
  GCTokenLock;
finalization
  _GlobalContextTokenLock.Free;

class procedure TRttiContext.DropContext;
begin
  TMonitor.Enter(GCTokenLock);
  try
    //具体的业务代码，线程安全的
  finally
    TMonitor.Exit(GCTokenLock);
  end;
end;

这是从官方源码中整理出来的，参考这个代码，我们可以更简化的使用TMonitor来加锁与解锁。

标签：begin,end,中加,解锁,TObject,GCTokenLock,GlobalContextTokenLock,TMonitor
来源： https://www.cnblogs.com/kinglandsoft/p/15942033.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。