delphi string.split 按照任意字符串分割语句

本文整理自网络，侵删。

 var
  I: Integer;
  S: string;
  A: TArray<string>;
begin
  S := 'AAA分割bbb分割ccc';
  A := S.Split(['分割']);
  for I := 0 to High(A) do
    ShowMessage(A[I]);
end;

 

输出结果为：

AAA

BBB

CCC

 

var

  str: string;
  arr: TArray<string>;
begin
  str := 'A-1,B-2,,,C-3,D-4';

  arr := str.Split([',']);                                   // arr[0] = A-1; Length(arr) = 6
  arr := str.Split([','], TStringSplitOptions.ExcludeEmpty); // 忽略空项; Length(arr) = 4
  arr := str.Split([','], 2);                                // 只提取前 2

  arr := str.Split([',', '-'], ExcludeEmpty); //arr[0] = A; Length(arr) = 8

  arr := str.Split([',,,'], None);            // 分隔符可以是一个字符串数组
end; 

相关阅读 >>

Delphi中webbrowser（或者embeddedwebbrowser）控件打开部分网站报“invalid floating point operation”异常的解决方法

Delphi文本加密解密

Delphi 解决strtodatetime（）不是有效日期类型的问题

Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法

Delphi 实现检测线程类tthread是否结束

Delphi 个人所得税计算函数

Delphi 泛型数组 strsplit 字符串分割

Delphi 中的文件系统进行unicode标准化

Delphi dbgrid适应宽度

Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi string.split 按照任意字符串分割语句