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 try abort、exit except 、finally end 执行情况

Delphi firemonkey app 如何获得当前系统语言设置

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi不占cpu的延时函数

Delphi 生成指定范围和个数的不重复的随机整数

Delphi 判断指定字符串是否开头 startstext用法

Delphi中updown组件的使用方法

Delphi idhttp访问datasnap有密码验证的中间件

Delphi xe2支持zip压缩文件的操作了

Delphi 获取大于2g的物理内存大小

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...