[pikabu]

Не парсит. Что я делаю не так?

Код:

var
re:TRegExpr;
begin
re := TRegExpr.Create;
  re.ModifierM := true;
  re.InputString := Memo1.Text;
  re.Expression := '<div title=".*">|<a title=".*" href';
  re.Compile;
  try
    if re.Exec(re.InputString) then
      repeat
        Memo2.Lines.Add(re.Match[2]);
      until not re.ExecNext;
  finally
    re.Free;
  end;
end;