本文整理自网络，侵删。
function GetNextMatch(AValue, APattern: string): string;
var
i: Integer;
Regex: TRegex;
s: string;
begin
Regex := TRegex.Create(APattern, [roIgnoreCase]);
for i := 0 to Regex.Matches(AValue).Count -1 do
begin
Result := Regex.Matches(AValue).Item[i].Value;
GetNextMatch(Result, APattern);
end;
end;
调用 GetNextMatch('begindklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkdend', '(?<=begin)([.\S\s]*)(?=end)');
结果：
dklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkd，
diekdjekdenickdkekkdiuiuijuj 相关阅读 >>
Delphi 用idhttp打开网页或下载文件时如何显示进度
Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串
更多相关阅读请进入《Delphi》频道 >>
