Con las etiquetas [delphi ] se pierde parte del codigo, deben ser cosas del VBulletin, este es el codigo completo:
Código:
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