Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop

最新推荐文章于 2025-12-04 17:53:34 发布

转载最新推荐文章于 2025-12-04 17:53:34 发布 · 309 阅读

文章标签：

#正则表达式 #delphi #regex

Delphi摘要专栏收录该内容

43 篇文章

订阅专栏

本文通过Delphi代码示例介绍了如何使用正则表达式进行字符串的部分匹配及替换操作，展示了设定搜索范围Start和Stop的功能。

//设定搜索范围: Start、Stop
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);

reg.Subject := 'ababab';
reg.RegEx   := 'ab';
reg.Replacement := '◆';

reg.Start := 1;
reg.Stop := 2;
while reg.MatchAgain do
begin
    reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ◆abab

reg.Subject := 'ababab';
reg.Start := 3;
reg.Stop := 4;
while reg.MatchAgain do
begin
    reg.Replace;
end;
ShowMessage(reg.Subject); //返回: ab◆ab

reg.Subject := 'ababab';
reg.Start := 5;
reg.Stop := 6;
while reg.MatchAgain do
begin
    reg.Replace;
end;
ShowMessage(reg.Subject); //返回: abab◆

FreeAndNil(reg);
end;