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;