Fórum Localizar Links #374251

//Para capturar apenas o que estiver como valor em href=
function TrataLink(ALink: String): String;
var
 P : Integer;
 Limite : Char;
 S : String;
begin
  P := Pos(´href=´, ALink);
  if P > 0 then
  begin
     Inc(P, 5);
     if ALink[P] in [39, 34] then
     begin
       Limite := ALink[P];
       Inc(P);
     end
     else
       Limite := ´>´;
     for P := P to Length(ALink) do
     if ALink[P] <> Limite then
       S := S + ALink[P]
     else
       Break;
     Result := S;
  end;
end;

//Captura tags 
procedure CapturaLinks(AHTML: String; ALista: TStrings);
var
 P,X : Integer;
 S, Link : String;
begin
  S := AHTML;
  S := StringReplace(S,13,´´,[rfReplaceAll]);
  S := StringReplace(S,#10,´´,[rfReplaceAll]);
  S := AnsiLowerCase(S);
  repeat
    P := Pos(´<a´, S);
    if P > 0 then
    begin
      S := Copy(S, P+3, Length(S));
      for X := 1 to Length(S) do
      if S[X] <> ´>´ then
        Link := Link + S[X]
      else
      begin
        Link := TrataLink(Link);
        ALista.Add(Link);
        Break;
      end;
    end;
   Link := ´´;
  until P = 0;
end;

CapturaLinks(HTML, Memo1.Lines);