Reguläre Ausdrücke - Vorgehensweise ?

[omata]

Delphi-Quellcode:

procedure GetHTMLLink(HTML:string; Links:TStrings);
var RegExpr:TRegExpr;
begin
  Links.Clear;
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='href="(.*)"';
    if RegExpr.Exec(HTML) then begin
      repeat
        Links.Append(RegExpr.Match[1]);
      until not RegExpr.ExecNext;
    end;
  finally
    RegExpr.free;
  end;
end;

RegExpr