Gewisse Stelle aus einem Text abspeichern.

[marabu]

Hallo.

Da es sich bei dem Text offensichtlich um HTML-Code handelt, würde ich ihn auch als solchen behandeln. Mit der Prozedur ExtractLinks() werden alle hyperlinks aus einem HTML-Document heraus geholt, auch wenn sie nicht Attributwert eines Anchor-Elements sind:

Delphi-Quellcode:

procedure ExtractLinks(doc: IHTMLDocument2; s: TStrings);
var
  ec: IHTMLElementCollection;
  e: IHTMLElement;
  i: integer;
  url: Variant;
begin
  ec := doc.links;
  for i := 0 to Pred(ec.length) do
  begin
    e := ec.item(i, 0) as IHTMLElement;
    url := VarToStr(e.getAttribute('href', 0));
    if url <> '' then
      s.Add(url);
  end;
end;

Grüße vom marabu