002.TPerlRegEx简单测试

 1 program Project1;
 2 
 3 {$APPTYPE CONSOLE}
 4 
 5 uses
 6     System.SysUtils, PerlRegEx;
 7 
 8 var
 9     reg: TPerlRegEx;
10 
11 begin
12     try
13         // 创建
14         reg := TPerlRegEx.Create;
15 
16         // 欲操作字符串
17         reg.Subject := ‘aaa123bb222cc‘;
18 
19         // 将所有连续的整数替换为一个*
20         reg.RegEx := ‘\d+‘;
21 
22         // 替换成
23         reg.Replacement := ‘*‘;
24 
25         // 替换全部
26         reg.ReplaceAll;
27 
28         // 输出替换后结果
29         Writeln(reg.Subject);
30 
31         // 释放
32         FreeAndNil(reg);
33         Readln;
34     except
35         on E: Exception do
36             Writeln(E.ClassName, ‘: ‘, E.Message);
37     end;
38 
39 end.