如何拆串？

[lqydeveloper]

这个字符串包含几部分信息，每条信息用逗号分割，我将怎么将它们分别提取出来呢？这个字符串是widestring类型的。该如何实现，谢谢各位了：）。

[gqxs]

AnsiString __fastcall Tmainforms::StrA(AnsiString *info,AnsiString t)
{
int i,j;
i=t.Length();
AnsiString temp;
j=info->Pos(t);
temp=info->SubString(1,j-1);
*info=info->SubString(j+i,info->Length()-j-i+1);
return(temp);
}

说明：info 为要分解的字符串指针，t 为字符串中信息元的间隔标志符
返回第一个信息元后，且原字符串info会删去第一个信息元 + t 。
例如"adfdfdsfüaaaaaa"在StrA()后会为"aaaaaa"。

[gqxs]

另外，用TStringList很方便
发：
TStringList *mylist = new TStringList;
mylist->Values["pm"]=1;
mylist->Values["bm"]=2;
mylist->Values["newpm"]=3;
mylist->Values["newbm"]=4;
myServer->Socket->SendText(mylist->Text)

收:
TStringList *mylist = new TStringList;
mylist->Text = Socket->ReceiveText();
pm = StrToInt(mylist->Values["pm"]);
bm = StrToInt(mylist->Values["bm"]);
newpm = StrToInt(mylist->Values["newpm"]);
newbm = StrToInt(mylist->Values["newbm"]);

[TangH]

12222222