Danke euch...
Habs jetzt so gemacht wie marabu es gesagt hat...
Hattte kein PoseX (Delphi6
PE)
aber habs nachgebaut mit
Delphi-Quellcode:
function PosEx(const Substr: string; const S: string; Offset: Integer): Integer;
begin
if Offset <= 0 then Result := 0
else
Result := Pos(Substr, Copy(S, Offset, Length(S)));
if Result <> 0 then
Result := Result + Offset - 1;
end;
Jedoch findet er trotzdem nur einen link wenn sie in einer zeile stehen...
Wenn wir das noch gelöst kriegen...Bettel....