|
Lock pattern
起源
lock pattern是Delphi中 TStrings数据更新控制的基础。在本段后面将例举部分Tstrings、TstringList的代码
目的
为类提供一个临时的访问锁控制机制
动机
我们经常发现一个对象经常调度一个返回更改结果的通知。被调度的对象必须控制其内部状态，以同步对象数据。如果同时对一个对象进行多个更改操作，将会产生多个通知并产生一个并发的操作。此时在你的类中加入一个lock pattern的模式，从面提供一个临时锁控制机。从而避免不必要的通知。
我们通过Tbag类来学习：
类TBag提供了collection的行为。每次更改，Tbag将调度OnChange事件。如果我们一次对Tbag加入多个对象，你将得到多个更改通知。一个图形组件可能会进行多次刷新操作。引入lock pattern后，在加入对象前打开Tbag的锁，操作完后关闭锁。如此，我将得到单一的更改通知。更好的办法是加入一个标志，比如：FUpdating
应用
以下是Tbag类部分代码: (仅显示部分相关代码)
type
TBag = class (TObject)
private
FLockCnt: Integer;
protected
function Locked: Boolean;
procedure SetLocking(Updating: Boolean);
public
procedure Lock;
procedure UnLock;
end;
implementation
procedure TBag.Lock;
begin
Inc(FLockCnt);
if FLockCnt = 1 then SetLocking(False);
end;
function TBag.Locked: Boolean;
begin
Result := (FLockCnt <> 0);
end;
procedure TBag.SetLocking(Updating: Boolean);
begin
end;
procedure TBag.UnLock;
begin
Dec(FLockCnt);
if FLockCnt = 0 then SetLocking(True);
end;
Tbag说明:
· FlockCnt保存锁机制的内部状态。FLockCnt = 0表示其处于非锁状态，其它值都表示其处于锁定状态。类Tbag通过Lock与Unlock来设置它的值。
· Lock与Unlock提供了锁的接口，每一次调用都将引起锁的关态变化，并调用SetLocking方法。
· SetLocking方法中有一个Updating的参数，Lock调用的参数为False，而Unlock调用的参数为True。对了，你可以在方法中插入一引起其它的代码，分配给它更多的操作表示它的锁状态的更改。.
· Locked 返回类的锁状态。
注意：Lock、 Unlock必须同时使用，从而避免类保持在锁状态。明智的方法是使用try..finally块来保持Lock、 Unlock的同时调用。
一个典型的应用例子:
procedure TBag.Add(Item: Pointer);
begin
{ Add Item to internal structure }
Change;
end
procedure TBag.AddItems(Items: TList);
begin
Lock;
{ Add multiple items }
try
for I := 0 to Items.Count - 1 do
Add(Items[I]);
finally
{ use try..finally to make sure Unlock is called }
[1] [2] 下一页
[系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序
[常用软件]让你的电脑固若金汤 Desktop Lock V7.0新鲜体验 [Delphi程序]为什么选择Delphi.Net ？
[Delphi程序]《关于VisiBroker For Delphi的使用》(4) [Delphi程序]Delphi 程序员代码编写标准指南
[Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro… [Delphi程序]Borland Delphi 9 的新特性
[Delphi程序]Delphi 键盘码表 [Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗？
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
