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;