procedure TForm1.Button2Click(Sender: TObject); var m_Str: string; m_StrList: TArray<string>; I:Integer; begin m_Str := Memo1.Text; m_StrList := m_Str.Split([‘n你好‘, ‘啊&‘]); for I := 0 to High(m_StrList) do begin Memo1.Lines.Add(m_StrList[I]); end; end;
原文：http://www.cnblogs.com/GodPan/p/4535718.html