昨天代码改动的多，贴错了一些，实际上，最初的代码是这样的：

XMLDOC->createElement(CComBSTR(L"RoadNo"),&pElement);
pElement->put_text(CComBSTR(array[i].RoadNo));
pElement->setAttribute(L"sn", CComVariant(StringToOleStr((IntToStr(n++))))) ;
TwoNode->appendChild(pElement,&TempNode);

经测试，这个 pElement->put_text( CComBSTR(....)....) 和接下来的
setAttribute 中的 StringToOleStr 函数有问题，这两个地方都会导致内存泄漏。

======================================================

昨晚的最终结果是：

XMLDOC->createElement(CComBSTR(L"RoadNo"),&pElement);
bstr = ::SysAllocString( WideString( IntToStr( array[i].RoadNo ) ) );
pElement->put_text( bstr );
::SysFreeString( bstr );
pElement->setAttribute(L"sn", CComVariant(WideString((IntToStr(n++))))) ;
TwoNode->appendChild(pElement,&TempNode);

改动了两个地方，问题解决

===========================================================

今天早上，又测试了一下，发现实际上使用 WideString 的时候，不用手工分配和释放
也不会导致内存泄漏。代码如下：

XMLDOC->createElement(CComBSTR(L"RoadNo"),&pElement);
pElement->put_text( WideString( IntToStr( array[i].RoadNo ) ) );
pElement->setAttribute(L"sn", CComVariant(WideString((IntToStr(n++))))) ;
TwoNode->appendChild(pElement,&TempNode);

===============================================================

综上所述，问题是出在那个 CComBSTR(...) 和 StringToOleStr( ... ) 这两个地方，
分析 atlbase.h 的 CComBSTR 定义部分，看到：

/*explicit*/ CComBSTR(const CComBSTR& src)
{
m_str = src.Copy();
}

如果传递进来的参数是 CComBSTR 类型的话，那么其构造函数是复制了参数内容，
而 CComBSTR 的析构函数只是释放了 m_str，并未释放参数变量里的内存资源，
从而导致了内存泄漏。

而WideString 则没有问题，是因为 WideString 本身被封装称能释放所占资源，
在隐式的类型转换过程中可以被释放掉。

StringToOleStr 估计也是类似的原因，这个函数没有源码可以分析。