本文整理自网络，侵删。
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 edit1.gettextlen 获取编辑框字符数
Delphi firedac 获取mysql 数据库databases 列表
更多相关阅读请进入《Delphi》频道 >>
