关于THashedStringList.AddObject求助

[kaman007]

会点delphi，接触c++时间不长，问题如下：sl在Form的Create函数里初始化(sl= new THashedStringList;)

AnsiString aa=Qry1->FieldByName("xm")->AsString;
	char* p=aa.c_str();
	sl->AddObject("a",(TObject*)"1");
	sl->AddObject("b",(TObject*)"2");
	sl->AddObject("c",(TObject*)p);
	sl->AddObject("d",(TObject*)(String*)"6");
	int i=sl->IndexOf("c");
	if (i!=-1)
	ShowMessage(sl->Strings[i]+"="+(char*)sl->Objects[i]);

能正常显示选定的记录的值。但是放到循环里就不行了。

for (int i=0;i<5;i++)
	{
		AnsiString dztm= Qry1->FieldByName("dztm")->AsAnsiString;
		AnsiString sXM= Qry1->FieldByName("xm")->AsAnsiString ;
		char * pXM;
		pXM =   sXM.c_str() ;
		sl->AddObject(dztm,(TObject*)pXM) ;
		Qry1->Next();
	}

下面是用一个按钮显示List里的值：

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
	int nIndex=sl->IndexOf(AnsiString(Edit1->Text)) ;
	if (nIndex!=-1)
	{
		AnsiString xm=(char *) sl->Objects[nIndex];
		ShowMessage(xm );
	}
	else ShowMessage(IntToStr(nIndex)+"Err");
}

显示的结果为空，偶尔有乱码，总之不是正确的结果。Qry1是没有问题的，有1w条数据，且都有xm。请达人解惑

[ccrun.com]

给你造成困惑的主要原因就是AnsiString的.c_str()返回值不确定，这个问题在以前讨论过许多次，AnsiString的.c_str()返回的指针，只在当前使用时有效，如果你将这个指针赋给一个char *对象，在后面继续使用的话，其指向的数据，可能已经不再是预想中的字符串，所以，循环代码改成：

AnsiString dztm, sXM;
for (int i = 0; i < 5; i++)
{
    dztm = Qry1->FieldByName("dztm")->AsAnsiString;
    sXM = Qry1->FieldByName("xm")->AsAnsiString;
    char *p = new char[sXM.Length() + 1];
    strcpy(p, sXm.c_str());
    p[sXM.Length] = 0x0;
    sl->AddObject(dztm, (TObject *)p);

    Qry1->Next();
}

当然，还有个重要的地方，记住数据用完或者需要重新添加数据到List中的时候，需要用一个循环来释放Object中占用的资源，如：

for (int i = 0; i < 5; i++)
    delete [](char *)(sl->Objects[i]);

[kaman007]

引用 1 楼 ccrun 的回复:

给你造成困惑的主要原因就是AnsiString的.c_str()返回值不确定，这个问题在以前讨论过许多次，AnsiString的.c_str()返回的指针，只在当前使用时有效，如果你将这个指针赋给一个char *对象，在后面继续使用的话，其指向的数据，可能已经不再是预想中的字符串，所以，循环代码改成： C/C++ code??123456789101112AnsiStr……

十分感谢ccrun，感觉c++的指针确实复杂，以后还要请教。

[wirner]

引用 1 楼 ccrun 的回复:

给你造成困惑的主要原因就是AnsiString的.c_str()返回值不确定，这个问题在以前讨论过许多次，AnsiString的.c_str()返回的指针，只在当前使用时有效，如果你将这个指针赋给一个char *对象，在后面继续使用的话，其指向的数据，可能已经不再是预想中的字符串，所以，循环代码改成：

AnsiString dztm, sXM;
for (int i = 0; i < 5; i++)
{
    dztm = Qry1->FieldByName("dztm")->AsAnsiString;
    sXM = Qry1->FieldByName("xm")->AsAnsiString;
    char *p = new char[sXM.Length() + 1];
    strcpy(p, sXm.c_str());
    p[sXM.Length] = 0x0;
    sl->AddObject(dztm, (TObject *)p);

    Qry1->Next();
}

当然，还有个重要的地方，记住数据用完或者需要重新添加数据到List中的时候，需要用一个循环来释放Object中占用的资源，如：

for (int i = 0; i < 5; i++)
    delete [](char *)(sl->Objects[i]);

当然，还有个重要的地方，记住数据用完或者需要重新添加数据到List中的时候，需要用一个循环来释放 妖哥, 能解释一下吗