La instrucción CONTAINING parece que no esta soportada en Dbase.
De momento, he solucionado el problema con las siguientes instrucciones, no sé si habrá otra solución para buscar una "string" no sensible a Mayusculas o Minusculas en un campo memo, de una base de datos DBASE.
q_pre.SQL.add('Select * from PREGUNTA');
q_pre.SQL.add('where TIPO = :cTipo');
* q_pre.SQL.add('or TEXTO LIKE :buscar0'); // minusculas
* q_pre.SQL.add('or TEXTO LIKE :buscar1'); // mayusculas
* q_pre.SQL.add('or TEXTO LIKE :buscar2)');// la 1ª en Mayusculas
* q_pre.Params[0].AsString := '%'+UPPERCASE (Buscar.text) +'%';
* q_pre.Params[1].AsString := '%'+LOWERCASE(Buscar.text) +'%';
* q_pre.Params[2].AsString := '%'+UPPERCASE (copy(Buscar.text,1,1))+
LOWERCASE(copy(buscar.text,2,length(Buscar.text)))+'%';
|