如何用字符串（多字符分隔符）分割字符串

如果有以下字符串

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

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

使用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;

 var
   lStr: string;
   lSplitStr: TArray;
begin
   lStr := '刘德华<->诸葛亮<->张曼玉';
   lSplitStr := lStr.Split('<->');
end;