Cita:
Empezado por Abuelo7
Mi idea es si no encuentra la frase exacta, separar las palabras de la frase y buscar dichas palabras una por una, buscando la palabra clave.
|
Para esta parte podrías hacer algo así:
Código Delphi
[-]
.......................
sl := TStringList.Create;
sl.Delimiter := #32;
sl.DelimitedText := Edit1.Text;
sl.Insert(0,Edit1.Text);
try
Memo1.Lines.Add(Edit1.Text);
indice := -1;
Recorremos hasta que encuentre
Repeat
Inc(Indice);
Until Not (Table1.Locate('palabra', sl[Indice], [loCaseInsensitive])) and (Indice
Saluditos