ganz simpler aufruf aber compiler meldet fehler...

[marabu]

An mehrere Links pro Zeile hatte ich bei meinem Code garnicht gedacht, aber mit PosEx() und zwei zusätzlichen Zeilen sollte es funktionieren:

Delphi-Quellcode:

procedure ExtractUrls(s, urls: TStrings; prefix: String);
var
  i, iStart, iStop: Integer;
  line: String;
begin
  for i := 0 to Pred(s.Count) do
  begin
    line := s[i];
    iStop := 0;
    repeat
      iStart := PosEx(prefix, line, Succ(iStop));
      if iStart > 0 then
      begin
        iStop := PosEx(' ', line, iStart + Length(prefix));
        if iStop = 0
          then urls.Add(Copy(line, iStart, MaxInt))
          else urls.Add(Copy(line, iStart, iStop - iStart));
      end;
    until iStart = 0;
  end;
end;

Freundliche Grüße