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.

结果：