//字符串分割: Split
var
reg: TPerlRegEx;
List: TStrings;
begin
List := TStringList.Create;
reg := TPerlRegEx.Create(nil); reg.Subject := 'aaa,bbb,ccc,ddd';
reg.RegEx := ','; {这里可是运行相当复杂的分割符啊} reg.Split(List,MaxInt); {第一个参数读入的是 Subject; 第二个参数是分成多少份}
{ 输入一个最大整数, 表示能分多少就分多少} ShowMessage(List.Text);
{返回:
aaa
bbb
ccc
ddd
} FreeAndNil(reg);
List.Free;
end;
相关文章
- 08-241.面向过程编程 2.面向对象编程 3.类和对象 4.python 创建类和对象 如何使用对象 5.属性的查找顺序 6.初始化函数 7.绑定方法 与非绑定方法
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile、Study
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(6): EscapeRegExChars 函数
- 08-24Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数