C++Builder中_wcsdup分配的内存无法释放问题求助

你的核心问题是内存分配和释放的方式不匹配：

• _wcsdup通过C标准库的malloc分配内存，必须用free释放；
• 你之前调用TObject->Free()，内部实际是调用C++的delete，这两种内存管理机制不兼容，所以报错。

下面是几种可靠的解决方法：

方法1：直接用free释放_wcsdup的内存 #

在窗体关闭（FormClose）或ComboBox销毁前，遍历Items的Objects，将指针转回wchar_t*后用free释放：

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    for(int i = ComboBox1->Items->Count - 1; i >= 0; --i)
    {
        wchar_t* ptr = reinterpret_cast<wchar_t*>(ComboBox1->Items->Objects[i]);
        if(ptr != nullptr)
        {
            free(ptr);
            ComboBox1->Items->Objects[i] = nullptr; // 避免野指针
        }
    }
}

这种方式最直接，完全匹配_wcsdup的内存分配逻辑。

方法2：改用C++的new/delete[]管理内存 #

如果更习惯用C++的内存管理方式，可以替换_wcsdup为new分配字符串，释放时用delete[]：

添加项时的代码： #

for(int i=0; i<MyStringList1->Count; i++){
    UnicodeString Description = MyStringList1->Strings[i];
    UnicodeString Symbol = MyStringList2->Strings[i];
    // 分配足够容纳字符串+结束符的内存
    wchar_t* MyPointerValue = new wchar_t[Symbol.Length() + 1];
    wcscpy(MyPointerValue, Symbol.c_str());
    ComboBox1->AddItem(Description, reinterpret_cast<TObject*>(MyPointerValue));
}

释放时的代码： #

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    for(int i = ComboBox1->Items->Count - 1; i >= 0; --i)
    {
        wchar_t* ptr = reinterpret_cast<wchar_t*>(ComboBox1->Items->Objects[i]);
        if(ptr != nullptr)
        {
            delete[] ptr;
            ComboBox1->Items->Objects[i] = nullptr;
        }
    }
}

方法3：用VCL风格的对象封装（更安全） #

如果想完全贴合VCL的内存管理习惯，可以封装一个简单的TObject子类来存储字符串，这样就能直接调用Free()释放：

1. 定义封装类（可以放在Form的头文件中）： #

class TSymbolHolder : public TObject
{
public:
    UnicodeString Symbol;
    __fastcall TSymbolHolder(const UnicodeString& S) : Symbol(S) {}
};

2. 添加项时的代码： #

for(int i=0; i<MyStringList1->Count; i++){
    UnicodeString Description = MyStringList1->Strings[i];
    UnicodeString Symbol = MyStringList2->Strings[i];
    TSymbolHolder* holder = new TSymbolHolder(Symbol);
    ComboBox1->AddItem(Description, holder);
}

3. 释放时的代码： #

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    for(int i = ComboBox1->Items->Count - 1; i >= 0; --i)
    {
        TSymbolHolder* holder = dynamic_cast<TSymbolHolder*>(ComboBox1->Items->Objects[i]);
        if(holder != nullptr)
        {
            holder->Free();
            ComboBox1->Items->Objects[i] = nullptr;
        }
    }
}

这种方式避免了直接的指针类型转换，类型安全性更高，也符合VCL的设计思路。

内容的提问来源于stack exchange，提问作者WorldTalk