Delphi中正则表达式之TPerlRegEx类的属性与方法（7） Split函数

Delphi中正则表达式之TPerlRegEx类的属性与方法（7） Split函数2012-12-22 博客园万一//字符串分割: 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;