Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数

//字符串分割: 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;