Extraer palabras de un texto

[BrunoBsso]

Tambien se me ocurre que con un Pos podrías verificar si tiene un http. Si Pos te da -1, entonces no tiene http el string que le pasaste.
Ni ganas de hacerlo ahora, pero después me voy a fijar.
Saludos!

[diego007]

Hola Bruno, muchas gracias por tu ayuda, el codigo si trabaja bien, pero solo con textos pequeños, ya con textos grandes se demora una eternida
e leido un poco sobre la funcion Post vi que era para encontrar palabras, aqui un ejemplo:

Código PHP:

var s : string;
    i : integer;
s:='DELPHI PROGRAMMING';
i:=Pos('HI PR',s); 


mi pregunta es como se podria hacer para que cuando la encuentre, copie toda la URL?

[BrunoBsso]

Hola Diego.
La función Pos te devuelve el índice donde empieza el sustring que estás buscando.
Supongamos que en "DELPHI PROGRAMMING" estás buscando HI PR.
Pos te va a devolver 5. Lo único que te faltaría sería revisar si desde I=5 hasta I+4 el texto = 'HI PR'.

Código Delphi [-]
S,Aux:String;
I,P:Integer;
Es_HI_PR:boolean;
P:=Pos('HI PR', s);
for I:=P to P+4
  Aux:=Aux+S[i];
Es_HI_PR:=Aux='HI PR';

Eso es lo que te decía anoche después de haber hecho todo el código anterior, pero me dolía la cabeza como para ponerme a teclear.
Creo que con eso funcionaría.
Saludos!

[BrunoBsso]

No me gustó la respuesta que te di, no tiene explicación.
Así que te prepare una aplicación que usa 2 TMemo: 1 con strings que tengan o no URLs y otro que va guardando cada una de las URLs del primero (cada URL en cada línea, y si la línea tiene más de una URL también la almacena).
Es demasiado largo para ponerlo acá, así que te paso el proyecto.
Saludos!

[BrunoBsso]

Bueno a ver mostro si decís si te sirvió o no... yo ya estoy pensando en otra forma de hacerlo separando en palabras toda la línea.
Necesito que me digas si con eso basta o no te sirve.
Ya 3 personas bajaron el archivo y seguramente vos sos uno.
Dame una señal de vida así dejo de diagramar otra solución ¿dale?

[diego007]

Hola Bruno, gracias por tu ayuda, disculpa por no contestarte antes (El viernes es uno de los peores dias para tratar de trabajar ) en este momento lo estoy integrando el codigo a mi programa y trabaja super bien, es muy rapido. esta era la solucion que busque desde mucho tiempo atras, de nuevo gracias

Salu2

[BrunoBsso]

Buenísimo, mejor.
La otra que ya terminé de hacer es mas lenta pero más simple.
Al fin puedo dejar de teclear jajaja
Saludos!