//字符串分割: Split
var
reg: TPerlRegEx;
List: TStrings;
begin
List := TStringList.Create;
reg := TPerlRegEx.Create(nil);
reg.Subject := 'aaa,bbb,ccc,ddd';
reg.RegEx := ','; {這里可是運(yùn)行相當(dāng)復(fù)雜的分割符啊}
reg.Split(List,MaxInt); {第一個參數(shù)讀入的是 Subject; 第二個參數(shù)是分成多少份}
{ 輸入一個最大整數(shù), 表示能分多少就分多少}
ShowMessage(List.Text);
{返回:
aaa
bbb
ccc
ddd
}
FreeAndNil(reg);
List.Free;
end;
