Resumen

[*Caro*]

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 [-]
    .....................
    //Eliminamos la palabra que se encuentra en Indice osea la que ha encontrado en la busqueda
    sl.Delete(Indice); 
 
   //Si el Indice no fuera el 0 osea la frase completa,
   // eliminamos esa frase completa, para que no nos repita en la respuesta
    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.

Código Delphi [-]
  //Con esto insertamos en la primera posición de nuestra lista
 sl.Insert(0,Edit1.Text);

Saluditos