CBC中对ANSISTRING进行多次相加处理后，会出现奇怪字串，为什么？

[jerrybk]

比如：
void __fastcall TfrmMain::DBGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Memo1->Lines[0].Text=
DBGrid1->DataSource->DataSet->Fields->Fields[2]->AsString;
sToUser=DBGrid1->DataSource->DataSet->Fields->Fields[5]->AsString;
s1=DBGrid1->DataSource->DataSet->Fields->Fields[3]->AsString;
s2=DBGrid1->DataSource->DataSet->Fields->Fields[9]->AsString;
txtTS->Caption =s;
}
此函数调用几次后，s就得到了莫名其妙的字符！我百思不得其解！奉送20分！

[jerrybk]

对不起，有些不完全，正确如下：
void __fastcall TfrmMain::DBGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Memo1->Lines[0].Text=
DBGrid1->DataSource->DataSet->Fields->Fields[2]->AsString;
sToUser=DBGrid1->DataSource->DataSet->Fields->Fields[5]->AsString;
s1=DBGrid1->DataSource->DataSet->Fields->Fields[3]->AsString;
s2=DBGrid1->DataSource->DataSet->Fields->Fields[9]->AsString;
s=s1+s2;
txtTS->Caption =s;
}
此函数调用几次后，s就得到了莫名其妙的字符！我百思不得其解！奉送20分！

[holyfire]

就这段代码看不出什么问题来。

[yao_yuan]

单步跟踪吧，看s1,s2到底出什么问题，是内存溢出还是有什么空指针之类的错误

[LiangShengHong]

从你的代码看没有任何问题，关键是S1、S2的问题
void __fastcall TfrmMain::DBGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Memo1->Lines[0].Text=
DBGrid1->DataSource->DataSet->Fields->Fields[2]->AsString;
sToUser=DBGrid1->DataSource->DataSet->Fields->Fields[5]->AsString;
//增加下列代码试试
s1="";
s2="";
s1=DBGrid1->DataSource->DataSet->Fields->Fields[3]->AsString;
s2=DBGrid1->DataSource->DataSet->Fields->Fields[9]->AsString;
s=s1+s2;
txtTS->Caption =s;
}

[Winsky]

应该不是String的问题,请仔细检查一下你的数据操作部分是否有其他代码影响到结果,比如Fields[9]是否合法,就是说DataSet中如果只有8个字段则会越界,再就是数据集的活动状态等.反正这段程序看不出什么问题,再好好跟踪一下吧.顺便问一句txtTS是个什么东西,是否已经分配内存了?改为下面样子试试,不行再说.
void __fastcall TfrmMain::DBGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Memo1->Lines[0].Text=
DBGrid1->DataSource->DataSet->Fields->Fields[2]->AsString;
sToUser=DBGrid1->DataSource->DataSet->Fields->Fields[5]->AsString;
s1=DBGrid1->DataSource->DataSet->Fields->Fields[3]->AsString;
s2=DBGrid1->DataSource->DataSet->Fields->Fields[9]->AsString;
s=s1+s2;
Caption =s; //把txtTS去掉,字符直接显示到窗体的标题栏
}

[我不懂电脑]

该段代码我试练了1000次没发现问题，因此可能是你系统有问题，请重装bcb，如不能解决，则只好重装windows和bcb。

[jerrybk]

我再补充一下：这段代码作用是每次单击DBGRID1中的一行，在一LABEL:txtTS的CAPTION上显示该行的信息，至于Fields[n]是绝对没有错的。我的运行平台是CB5+Win2000,难道真与平台有关？

[holyfire]

显示的奇怪字符是什么，我在2K下BCB经常把\n或者NULL显示成一方块。

[BCB]

串AnsiString从未遇到任何问题，可能是你自已有疏忽
试验时：
1。去掉无关的代码，否则看不清；
2。将s1,s2设成局部变量；

[我不懂电脑]

该段代码我又试练了1000次不管用全局变量还是局部变量都没发现问题，因此可能是你系统有问题，请重装bcb，如不能解决，则只好重装windows和bcb。