关于DECAL（delphi 容器与算法库）的问题

[jinkang]

decal我用了一下，是从C＋＋的STL改写的，我用了一下，感觉不错。
但是有一个问题，就是在多线程时，在每个线程里创建一个（例如是MAP容器的类），每个线程的类里都做一个插入数据的过程。
在单线程时，这样使用都是正常的，但是在多线程时，插到几十万数据时，常常会内存访问错误。
我曾经问过作者Ross Judson,他的解释如下：

DeCAL was never designed to be multithreaded; you need to do your own locking around it if you are using it in this manner. There are both Delphi facilities and Windows calls that you can make to do this.

即DECAL不支持多线程，应当自己做处理。

但是，我在不同的线程中使用各自不同的类，这样怎么可能互相冲突？
真是没办法了，请各位帮忙。


关于decal的源码，请到以下地址下载：
http://sourceforge.net/projects/decal/
使用时只需包含decal.pas文件即可。不存在的文件直接注释即可。

附测试源码：我起8个线程，每个线程中执行以下MyTest过程。
procedure TmyTestThrd.MyTest;
const
MaxLoopTime = 100000;
var
myMap:DMap;
i:integer;
begin
myMap := DMap.Create;
try
for i := 0 to MaxLoopTime - 1 do
begin
myMap.putPair([i,inttostr(i)]);
end;
myMap.Free;
except
on a:exception do
begin
showmessage('error');
end;
end;
end;