TStringList 自动分割，空格也当做分隔符

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TStringList  *ls;
   Memo1->Clear();
   ls = new    TStringList();
   ls->Delimiter = '|';
   ls->DelimitedText = "a|b|c|d";//"a|b b|c|d"
   for( int i=0;i<ls->Count;i++)
     Memo1->Lines->Add(ls->Strings[i]);
   delete ls;
  
}

 

//"a|b b|c|d"

结果如下

a
b
b
c
d

如果字符串有空格，且空格不分割就不能用此方法了。或者修改pas文件那就麻烦了