Memo nach bestimmtem LINKS durchsuchen.

[marabu]

Hallo xe0n,

schön, dass du den für dich passenden Code gefunden hast. Ich lasse mir die Links lieber vom HTML Parser geben und das sieht dann so oder ähnlich aus:

Delphi-Quellcode:

procedure ExtractLinks(doc: IHTMLDocument2; s: TStrings);
var
  all: IHTMLElementCollection;
  e: IHTMLElement;
  i: integer;
  info: TStrings;
  url: Variant;
begin
  info := TStringList.Create;
  all := doc.all;
  for i := 0 to Pred(all.length) do
  begin
    e := all.item(i, 0) as IHTMLElement;
    url := e.getAttribute('href', 0);
    if not VarIsNull(url) then
    begin
      info.Add(e.innerText);
      info.Add(url);
      info.Add(e.tagName);
      s.Add(info.CommaText);
      info.Clear;
    end;
  end;
  info.Free;
end;

Im Gegensatz zu deinem Code "aus der Schweiz" werden damit auch relative Links gefunden, wobei ich gleich noch die Informationen mit einsammle, die der FireFox in seiner PageInfo unter Links anbietet.

Grüße vom marabu