Delphi 多线程下方便的加锁方法

TMonitor.Enter(Tobject);
try
xxxxxxxxxxxxxxxxxx
finally
TMonitor.Exit(Tobject);
end;

 

使用起来非常方便