如何用字符串(多字符分隔符)分割字符串

如果有以下字符串

'刘德华<->诸葛亮<->张曼玉'

我们希望通过分隔符<->分割,获得所有人名,如何实现?




01_通过TStringList 来实现


使用TStringList还有一个非常简单的解决方案。我们更改LineBreak:


 procedure TForm208.Button1Click(Sender: TObject);
var
   lst: TStringList;
begin
   lst := TStringList.Create;
   try
    lst.LineBreak := '<->';
    lst.Text := '刘德华<->诸葛亮<->张曼玉';
    Memo1.Lines := lst;
   finally
    lst.Free;
   end;
end;






02_通过较新版本的StringHelper来实现


 

 var
   lStr: string;
   lSplitStr: TArray;
begin
   lStr := '刘德华<->诸葛亮<->张曼玉';
   lSplitStr := lStr.Split('<->');
end;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678