Busqueda en un richedit o en un memo

[*Caro*]

Con las etiquetas [delphi ] se pierde parte del codigo, deben ser cosas del VBulletin, este es el codigo completo:

var
 Texto, Url, Valor : String;
 ............
begin
 PosIni := 0;
 Texto := Memo1.Text;
 While PosEx('<a href', Texto, PosIni)>0 Do
 begin
  PosIni := PosEx('<a href', Texto, PosIni);
  PosFin := PosEx('>', Texto, PosIni);
  
  //Obtenemos la Url
  Url := Copy(Texto, PosIni, PosFin-PosIni-1);  
  Ini := Pos('?=', Url);
  Valor := Copy(Url, Ini+2, Length(url)-1); //Valor lo guardas en tu arreglo o StringList
 
  Inc(PosIni);
 end;

Saluditos

[Ñuño Martínez]

Pues sí, parece que lo del código fuente no funciona muy bien, aunque lo he cambiado justo a la vez que tú y ahora se ve bien.

[titomigue]

pues no consigo que me entre en el while...
While PosEx('<a href', Texto, PosIni)>0 Do
se lo salta directamente, y al modificar la condicion "....)=0" entra pero no pilla ningun valor.

Edito: no se que le pasa al 'a href' pero poniendo el protocolo http para buscar la cadena me ha funcionado, muchisimas gracias