Ver Mensaje Individual
  #4  
Antiguo 13-02-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.282
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita