002.TPerlRegEx简单测试

我要做什么？

将一个字符串中的所有连续的数字替换成一个*

代码：

 program Project1;

 {$APPTYPE CONSOLE}

 uses
     System.SysUtils, PerlRegEx;

 var
     reg: TPerlRegEx;

 begin
     try
         // 创建
         reg := TPerlRegEx.Create;

         // 欲操作字符串
         reg.Subject := 'aaa123bb222cc';

         // 将所有连续的整数替换为一个*
         reg.RegEx := '\d+';

         // 替换成
         reg.Replacement := '*';

         // 替换全部
         reg.ReplaceAll;

         // 输出替换后结果
         Writeln(reg.Subject);

         // 释放
         FreeAndNil(reg);
         Readln;
     except
         on E: Exception do
             Writeln(E.ClassName, ': ', E.Message);
     end;

 end.

结果：