¿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+ '%'));
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