//字符串分割: Splitvar  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); {第一個(gè)參數(shù)讀入的是 Subject; 第二個(gè)參數(shù)是分成多少份}  { 輸入一個(gè)最大整數(shù), 表示能分多少就分多少}  ShowMessage(List.Text);  {返回:    aaa    bbb    ccc    ddd  }  FreeAndNil(reg);  List.Free;end;