[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法

TStringList线程安全实现

weixin_30781631

于 2012-10-23 11:12:00 发布

阅读量115

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xalion/archive/2012/10/23/2735159.html

本文介绍如何通过TkbmMWLock类为TStringList提供线程安全保护，包括自定义类、创建销毁方法及具体使用示例。

TStringList不是线程安全的，当我们在线程用到他是，要做保护。方法有两种，一种是用delphi自带的Critical，另外一种就是kbmMW为我们提供的TkbmMWLock类。
现在我们看看如何用TkbmMWLock为TStringList做线程安全：

1.基于TStringList声明自己的类：
TThreadStringList=class(TStringList)
2.在该类中增加kbmMWLock实例
Private

FLock:TkbmMWLock;
在类的Create及Destructor方法中建立与取消

3.调用方法
当我们在操作ThreadStringList实例时，调用kbmMWLock的的Lock.BeginWriet及Lock.EndWrite方法进行保护就行了。

4.附最后的代码：
TThreadStringList=class(TStringList)
Private
FLock:TkbmMWLock
public
constructor Create;override;
destructor Destroy;override;
property Lock:TkbmMWLock Read FLock;
end;

constructor TThreadStringList.Create;
begin
inherited Create;
FLock:=TkbmMWLock.Create;
end;
destructor TThreadStringList.Destroy;
begin
FLock.Free;
inherited Destroy;
end;

使用该类的代码：
sl:TThreadStringList;
...
sl.Lock.BeginWrite;
try
sl.Add('Test!');
finally
sl.Lock.EndWrite;
end;
当然，这里的操作sl,含读与写两种操作。

通过上面说明，我们看到了TkbmMWLock的用法，就是为一个类增加一个线程锁，实际上，kbmMW本身很多的类，就是用kbmMWLock加线程锁的，我们也可以随时利用kbmMWLock为自己的类加锁。

当然，不喜欢这样，想用Delphi自带的来保护线程也一样，全凭个人喜好了！

转载于:https://www.cnblogs.com/xalion/archive/2012/10/23/2735159.html