Alle Links auslesen

[DeluxXx]

Ich bin auf der Suche nach einer Funktion die alle arten von Links aus einem String auslesen kann also FTP HTTP ...
Ich habe es selber schon mit "Regex" versucht des problem ist das immer noch zu viel drann bleibt

Delphi-Quellcode:

iStart := pos('<a href="',Source) ;
iStop := pos('">',Source) ;
...
Copy(Source,IStart+length('<a href="'),IStop-IStart+length('<a href="')) ;

Also zb weil manche Links Titel enthalten ...
Vielen Dank !