如何高效的拆解字串??

[coolpony]

把一个字串按分隔符拆解成几个字串.

[烟波三千里人鬼五百年]

coolPONY:老大蹭分来了....!!!

#include <StrUtils.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Str("123,456,789,abc,fkfuifuifyuiyfriurui.,uriruitruity,即把");
char Delimeter = ',';
TStringList* strlist = new TStringList;

for (int count=0,i=1 ; i<= Str.Length(); i++,count++ )
{

if ( Str[i] == Delimeter )
{
Str.Delete(i,1); //删除
strlist->Add(Str.SubString(i-count,count));
count = 0;
}
else if(i == Str.Length())
{
strlist->Add(Str.SubString(i-count,count+1));
}
}

ShowMessage(strlist->Text);
delete strlist;

}
//---------------------------------------------------------------------------

[coolpony]

多谢cker大哥支持.
先试试先

[烟波三千里人鬼五百年]

AnsiString Str("123,456,789,abc,weqweqweqwezsdasd213123(&*(^%&*$%^$,fkfuifuifyuiyfriurui.,uriruitruity,文章,阿达维,4646489");
char Delimeter = ',';
TStringList* strlist = new TStringList;

for (int count=0,i=1 ; i<= Str.Length(); i++,count++ )
{

if ( Str[i] == Delimeter )
{
i++;
count++;
strlist->Add(Str.SubString(i-count--,count));
count = 0;
}
else if(i == Str.Length())
{
strlist->Add(Str.SubString(i-count++,count));
}
}

ShowMessage(strlist->Text);
delete strlist;

[coolpony]

实在太感谢了..
我的眼泪如滔滔江水,连绵不绝..................

[勉励前行]

參考一下這地方，寫得不錯。
http://expert.csdn.net/Expert/topic/659/659479.xml?temp=.0166437