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); // ...
例如:src:='abc|def|ghi'; ch='|'的时候,返回的stringList应该是{abc, def, ghi}。 开始的时候,我是使用获取ch在src中出现的位置,然后使用StrUtils单元提供的RightStr方法来分割字符串,并将结果保存在stringList中的。程序如下: procedure SplitString(src: string ; ch: Char; var stringList: TStringList...
delphi string.split 按照任意字符串分割语句 1.就是把一个指定的字符串用指定的分割符号分割成多个子串,放入一个 TStringList 中 function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer; 比如要把 'abc,defg,hijkl'; 按照逗号','分割开: var Res: TStrin...
由于delphi中没有split这种方便的函数，只能自己完成split功能，一、直接使用如下函数(注：ch只能是单字符，如键盘上英文状态下的字符）function SplitString(const Source,ch:String):TStringList;vartemp:String;i:Integer;beginResult:=TStringList.Create;//如果是空自符串则返回空列表if Source=''the...
function TRegEx.Split(input, pattern : string): TArray<string> 第一个参数是被分割的字符串。 第二个参数是分隔符。 注:该函数可以完全替代上面两个函数,正则式的功能很强大,上面两个函数只能按某几个字符进行分割,正则式则可以按字符串、或者匹配字符串进行分割,需要引用单元 RegularExpressions,在Delphi XE以...
function SplitString(const S, Delimiters: string): TStringDynArray; 第一个参数是被分割的字符串。 第二个参数是分隔符,可以包含多个分隔符,例如';,:',可以按分号、逗号、分号来同时分割。 返回值是分割的结果。 注:这个函数在早期的Delphi中没有,跟ExtractStrings的用法相近,参数更少,使用更方便一些,要引用这...
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; 输出结果为:...
procedure SplitString(src: string ; ch: Char; var stringList: TStringList); 目的是使用字符ch拆分src字符串,把拆分的结果放入stringList中。例如:src:='abc|def|ghi'; ch='|'的时候,返回的stringList应该是{abc, def, ghi}。 开始的时候,我是使用获取ch在src中出现的位置,然后使用StrUtils单元提供的...
function split(s: string; dot: char): userarray; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} //按所给字符将字符串分隔成数组 function TForm1.split(s:string;dot:char):userarray; ...
function SplitString(const source, ch: string): TStringList;var temp, t2: string;i: integer;begin result := TStringList.Create;temp := source;i := pos(ch, source);while i <> 0 do begin t2 := copy(temp, 0, i - 1);if (t2 <> '') then result.Add(t2);delete(temp, 1, i...