13,825
社区成员
发帖
与我相关
我的任务
分享
07206 ;07207;07208;07209;07210;
17206 ;17207;17208;17209;17210;
27206 ;27207;27208;27209;27210;
37206 ;37207;37208;37209;37210;
47206 ;47207;47208;47209;47210;
57206 ;57207;57208;57209;57210;
67206 ;67207;67208;67209;67210;
;我想以“;”为界,整理成每行只有一个的文件,如
07206;
07207;
07208;
07209;
07210;
17206;
17207;
17208;
17209;
17210;
27206 ;
void __fastcall TForm20::Button2Click(TObject *Sender)
{
TStringList *ls;
ls = new TStringList();
ls->Delimiter = ';';
ls->DelimitedText = Memo1->Text;
Memo2->Text = ls->Text;
delete ls;
}