Capturar datos de un memo

[ZayDun]

Hola, estoy trabajando con un clientsocket que me muestran el resultado de una pagina en un memo1, el memo1 contiene varios links que me gustaria poder pasar a otro Memo2 o TStringList el problema es que no logro capturar todos los links ya que tan solo se me muestra correctame el primer link y continua mostrando el resto de la pagina en el memo2. espero que me hayais entendido gracias!

[jachguate]

No, la verdad no entendí.

¿el problema está en el parser?
Los links son todos aquellos que estén en una etiqueta <a></a> (anchor) y tengan un parámetro "href". Recordá que los links pueden ser relativos, por lo que si no inician con un protocolo, lo mejor será "concatenarlos" a la ruta de la página original (solo la ruta, sin la página), a menos que sean una posición de marca dentro de la misma página: el href inicia con el caracter "#". En ese caso, la concatenación debe hacerse a la cadena completa (incluyendo la página).

Hasta luego.

[ZayDun]

El contenido que recibo no esta en href ya que se trata de un link pero no se puede hacer click en el, el contenido del memo es algo asi


Bienvenido a http:\\www.laweb.com aqui podras encontrar

musica: http:\\www.laweb.com\musica
juegos http:\\www.laweb.com\juegos
etc.. http:\\www.laweb.com ...

y lo que me gustaria que copiase las url al memo2.


Saludos!

[Neftali [Germán.Estévez]]

Haz un recorrido por el memo y ves quedándote con cada linea:

Código Delphi [-]
  Str := Memo1.Lines.Strings[i];

En cada una de esas líneas busca (por ejemplo) la referencia de "Http:" como inicio del link. Puedes usar para ello la función AnsiPos.

Una vez que tengas la posición basta con que te quedes con la parte final de ese string; Para eso puedes usar la función Copy.