有没有Delphi函数用多字符分隔符而不是单个字符分割字符串?
例如当我以这种方式使用这个功能:
SplitString('Whale<->Mammal<->Ocean','<->')
我会得到这3个字符串的结果:
'Whale','Mammal','Ocean'
在Delphi中有这样的功能吗?
解决方法
使用TStringList还有一个很简单的解决方案。更改LineBreak:
procedure TForm208.Button1Click(Sender: TObject); var lst: TStringList; begin lst := TStringList.Create; try lst.LineBreak := '<->'; lst.Text := 'Whale<->Mammal<->Ocean'; Memo1.Lines := lst; finally lst.Free; end; end;