■■■■他奶奶的TStringList■■■■■■■

[niuzhenjun]

有一字符串想用它拆分，分隔符为','

String sql = "asdf,fff dd,s,fkk";
TStringList *sl = new TStringList;
sl->Delimiter = ',';
sl->DelimitedText = sql;
int num = sl->Count; ////这里本来应该是4，却报告为5，
for (int i=0;i<num;i++)
{
cmd->CommandText = sl->Strings[i];
}

sl->Strings[1]="fff"; 而不是我希望的"fff dd"，奶奶的，不但用','拆分，还用空格拆分，怎么回事，谁能救救我

[lfnhxhsoft]

是不是 sl->Delimiter = ',';这句话的事情呀，你用sl->Delimiter = ",";试一下

[niuzhenjun]

to: lfnhxhsoft(lfn_hxh_soft)
不行，那个属性要求是一个char，用","出错。

[bcb0401]

自已写个函数吧。

[myy]

String sql = "asdf,fff dd,s,fkk";
TStringList *sl = new TStringList;

sl->Text=AnsiReplaceText(sql,",","\n");
...
...
delete sl; sl=NULL;

[warton]

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString Str="63.43.156.32";
Memo1->Lines->Text = StringReplace(Str,".",",",TReplaceFlags()<<rfReplaceAll);
}
把这个运行起来，再想办法改一改...

[Chimae]

String sql = "asdf,fff dd,s,fkk";
TStringList *sl = new TStringList;
sl->Delimiter = ',';
sl->DelimitedText = sql;
int num = sl->Count; ////这里本来应该是4，却报告为5，
for (int i=0;i<num;i++)
{
cmd->CommandText = sl->Strings[i];
}
改写如下：
while (sql.AnsiPos(","))
{
sl->Add(sql.SubString(1, sql.AnsiPos(",")-1));
sql = sql.SubString(sql.AnsiPos(",")+1, sql.Length()-sql.AnsiPos(","));
}
sl->Add(sql);

[Chimae]

套用两个循环，OK！

[lanchong781126]

本来就应该是5吧