so ich hab jetz eine eigene Lösung:
Delphi-Quellcode:
procedure TForm1.ExtractLinks(Sender: TObject);
var
i, iStop:integer;
sLink:String;
begin
sLink:='';
iStop:=Memo_Quellcode.Lines.Count-1;
Memo_Temp.Clear;
for i:=0 to iStop do
begin
IF MatchesMask(Memo_Quellcode.Lines[i], '*href="http://*"*') then
begin
Memo_Temp.Lines.Add(Copy(Memo_Quellcode.Lines[i],POS('href="',Memo_Quellcode.Lines[i])+6,Length(Memo_Quellcode.Lines[i])));
end;
end;
for i:=0 to Memo_Temp.Lines.Count-1 do
Memo_Links.Lines.Add(Copy(Memo_Temp.Lines[i],0,Pos('"',Memo_Temp.Lines[i])-1));
end;
sie erscheint euch vllt nicht als die beste, aber für meine zwecke reicht sie.
vielen Dank an euch für die Hilfe!
[edit= man mus noch masks in die USES einbinden]