首页 / 软件开发 / Delphi / Delphi中正则表达式之TPerlRegEx类的属性与方法（3） Start、Stop

Delphi中正则表达式之TPerlRegEx类的属性与方法（3） Start、Stop2012-12-22 博客园 万一//设定搜索范围: 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;