本文整理自网络,侵删。
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 application.processmessage作用
Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法
更多相关阅读请进入《Delphi》频道 >>