Hola amiga Caro.
He probado el código que me has pasado y funciona perfectamente.
Ahora bien, tengo dudas de como insertarlo en el código que tengo.
Te lo paso.
Código Delphi
[-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
sl : TStringList;
Cadena, respuesta, pregunta : String;
i : Integer;
begin
if Key <> #13 then Exit;
Table1.Open;
Table2.Open;
Table3.Open;
Table4.Open;
try
Memo1.Lines.Add(Edit1.Text);
if (Table1.Locate('palabra', Edit1.Text, [loCaseInsensitive])) and
(Table2.Locate('NUMERO', Table1.fieldByName('NUMERO').AsString, [loCaseInsensitive])) then
Memo1.Lines.Add(Table2.fieldByName('RESPUESTA').AsString)
else
If (Table3.Locate('palabra',Edit1.Text,[loCaseInsensitive])) and
(Table4.Locate('NUMERO',Table3.fieldByName('NUMERO').AsString,[loCaseInsensitive])) then
Memo1.Lines.Add(Table4.fieldByName('RESPUESTA').AsString)
else
if Edit1.Text='adios' then
Memo1.Lines.Add('Hasta la próxima')
else
Memo1.Lines.Add('No entiendo la frase.Podría explicármelo de otra forma?');
finally
Table1.Close;
Table2.Close;
Table3.Close;
Table4.Close;
Edit1.Text :='';
end;
end;
end.
Gracias
Saludos