本文整理自网络,侵删。
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 判断指定字符串是否开头 startstext用法
Delphi idhttp访问datasnap有密码验证的中间件
更多相关阅读请进入《Delphi》频道 >>