本文整理自网络,侵删。
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;
https://www.cnblogs.com/GodPan/p/4535718.html
相关阅读 >>
Delphi xe8中的firemonkey应用程序将文本复制到剪贴板
Delphi 调试ios时出现 please specify exact device preset uuid
更多相关阅读请进入《Delphi》频道 >>