delphi 关于 TRegEx.Split()

delphi 关于 TRegEx.Split()

表达式中的括号将严重影响分割结果.
--------------------------------------------------------------------------------


uses RegularExpressions;

const
 FSourceText = '1: AAA 2: BBB 3: CCC'; // 分隔符将有三部分构成: 一个数字, 一个冒号, 一个空格
var
 Arr: TArray;
 str: string;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Arr := TRegEx.Split(FSourceText, '\d: ');

 Memo1.Clear;
 for str in Arr do Memo1.Lines.Add(str);
 {结果:

 AAA
 BBB
 CCC
 }
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Arr := TRegEx.Split(FSourceText, '(\d): '); //括号中的部分被当做分割后的元素

 Memo1.Clear;
 for str in Arr do Memo1.Lines.Add(str);
 {

 1
 AAA
 2
 BBB
 3
 CCC
 }
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Arr := TRegEx.Split(FSourceText, '(\d:) '); // 证实上面

 Memo1.Clear;
 for str in Arr do Memo1.Lines.Add(str);
 {

 1:
 AAA
 2:
 BBB
 3:
 CCC
 }
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 Arr := TRegEx.Split(FSourceText, '(\d)(:) '); // 如果有两个括号, 取后面括号的内容做元素

 Memo1.Clear;
 for str in Arr do Memo1.Lines.Add(str);
 {

 :
 AAA
 :
 BBB
 :
 CCC
 }
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 Arr := TRegEx.Split(FSourceText, '(\d)(:)( )'); // 证实上面

 Memo1.Clear;
 for str in Arr do Memo1.Lines.Add(str);
 {


 AAA

 BBB

 CCC
 }
end;
--------------------------------------------------------------------------------