@Klaus01
Die erste Zeile Deiner Funktion löscht das linke Anführungszeichen nicht, es wird somit beim zweiten Pos() erneut gefunden. Hier die korrigierte Version:
Delphi-Quellcode:
function ExtractURL (const aLink: string): string;
begin
Result := Copy(aLink, Pos('"', aLink) + 1, MaxInt);
Result := Copy(Result, 1, Pos('"', Result)-1);
end;
Vielleicht sollte man auch noch eine Überprüfung einbauen, ob überhaupt ein
URL im String enthalten ist.
Gruß Hawkeye