Cita:
Empezado por Abuelo7
Has bajado el programa Zebal ?
Que Tal?
|
Hola Manuel si lo he bajado gracias, pero no lo he podido ver, yo creo el fin de semana tratare de verlo.
Sobre la parte que no te funciona, en el primer codigo recorriendo las palabras para hacer la búsqueda, no se estaba controlando de eliminar la frase completa ya que con el sl.Insert(0, Edit1.Text) lo insertabamos al principio para que haga la busqueda primero por la frase completa y luego por las palabras separadas, al encontrar en un indice que no sea el 0 osea que no sea la frase completa teníamos que eliminar lo que se tenía en el indice 0 para luego pasar recien lo que quedaba a la respuesta, es por eso que he aumentado
Código Delphi
[-]
.....................
sl.Delete(Indice);
if Indice<>0 then
sl.Delete(0);
respuesta := Table2.fieldByName('RESPUESTA').AsString;
....................
En tu codigo en la parte del Insert le has puesto que se inserte en la posicion 1, cambialo por 0, ya que estamos preguntando por esa posición 0 si fuera frase completa.
Saluditos