Aplicación con buscadores tipo google o yahoo

[[ElKurgan]]

Si lo que quieres es conocer algo de la metodología que se oculta detrás de la construcción de un buscador de estas características, te puedes pasar por la Web del amigo JM, donde hay dos artículos la mar de interesantes. En concreto, en http://www.lawebdejm.com/prog/delphi...or_google.html

Un saludo

[[Lepe]]

¿y por qué implementar el "+"? ¿por qué no quitarlo?, es decir, no creo necesario que escriba el símbolo +, si no quiere algo, que no lo escriba.

Por otro lado coincido con Delphius, no creo conveniente dar al usuario una sola caja de búsqueda y complicarnos la vida con desglosar el contenido que escribe. Por otro lado, seguro que los resultados no son lo que espera.

Con esto quiero decir, que quizás sea mejor poner 3 cajas de texto:
- Tipo de artículo: Memorias
- tipo de RAM : ddr
- Velocidad : 512

Así no obtendremos los resultados de las placas bases u otros artículos que el usuario no busca.

Para hacer esto, ultimamente estoy usando un TStringList para construir las claúsula Where de dicha consulta, más o menos algo así:

Código Delphi [-]
var Where :Tstringlist;
begin
  Where.Add( 'where articulo like ' + quotedstr('%'+ cajaArticulo.text+ '%')); // el tipo de artículo es imprescindible que lo escriba

  if Trim(cajaTipo.text)<> EmptyStr then
    Where.Add(' and tipo = ' quotedstr(cajaTipo.TExt);

  if Trim(cajaVelocidad.Text)  <>EmptyStr then
    Where.Add('and Velocidad = ' + cajaVelocidad.Text);

query1.sql.text := 'select * from tabla ' + Where.Text;
query1.Open;

Bueno... más o menos, en realidad uso un Objeto creado por mi que controla algunas cosillas más.

Saludos