Consulta en Tabla

[yusnerqui]

Abuelo, que tal una tabla de búsqueda para las preguntas y otra para las respuestas con una relacion de uno a varios, así por cada pregunta tienes x cantidad de respuestas y no tienen que ser solo cuatro, esto tiene la posibilidad de ir enriqueciendo las respuestas, porque tu programa me puede preguntar "como estás?", y yo le puedo responder, "aqui guapeando" y entonces el detectar que es una respuesta que no tiene y agregarla al arcenal de respuestas pocibles

Claro que eso es solo una idea más, el objetivo es no limitar a solo cuatro respuestas por preguntas y que el programa se retroalimente de las conversaciones.

Saludos

[Abuelo7]

Hola amigos y amigas.

Respecto al tema que me está preocupando tengo lo siguiente:
unit PruebaBuena4;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
DataSource1: TDataSource;
Table1: TTable;
EditPregunta: TEdit;
procedure Button1Click(Sender: TObject);
procedure EditPreguntaKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.EditPreguntaKeyPress(Sender: TObject; var Key: Char);

var

respuesta : Integer;
RespuestaCAD : String;
begin
If key=#13 then


begin
Table1.Open;
If Table1.Locate('pregunta',EditPregunta.Text, [loCaseInsensitive]) then
Randomize;
respuesta := Random(5);
Case respuesta of
1: RespuestaCAD := Table1.fieldByName('respuesta1').AsString;
2: RespuestaCAD := Table1.fieldByName('respuesta2').AsString;
3: RespuestaCAD := Table1.fieldByName('respuesta3').AsString;
4: RespuestaCAD := Table1.fieldByName('respuesta4').AsString;
5: RespuestaCAD := Table1.fieldByName('respuesta5').AsString;
end;
Table1.Close;
begin



ListBox1.Items.Add(EditPregunta.Text);
ListBox1.Items.Add(RespuestaCAD);

EditPregunta.Text :='';



end;
end;
end;
end.

Me aparece un problema y es que al introducir una frase o palabra, por ejemplo 'hola' a veces me contesta bien con una de las 5 respuestas posibles, pero a veces falla y no contesta nada.
Lo tengo programado para que en el ListBox aparezca la frase del usuario y la respuesta, con lo cual cuando falla, solo aparece la frase del usuario y una línea en blanco.
Podeís decirme que estoy haciendo mal.?

Gracias.

Manuel Reixach

[tcp_ip_es]

existe un begin mal puesto...a parte el ramdom de 5 puede darte valor 0 y no lo tienes contemplado...mejor ponerlo a 4 ... el procedure quedaría asi.

Código Delphi [-]
procedure TForm1.EditPreguntaKeyPress(Sender: TObject; var Key: Char);
var
 respuesta : Integer;
 RespuestaCAD : String;
begin
 If key=#13 then
 begin
  Table1.Open;
  If Table1.Locate('pregunta',EditPregunta.Text, [loCaseInsensitive]) then
  begin
   Randomize;
   respuesta := Random(4);
   Case respuesta of
    0: RespuestaCAD := Table1.fieldByName('respuesta1').AsString;
    1: RespuestaCAD := Table1.fieldByName('respuesta2').AsString;
    2: RespuestaCAD := Table1.fieldByName('respuesta3').AsString;
    3: RespuestaCAD := Table1.fieldByName('respuesta4').AsString;
    4: RespuestaCAD := Table1.fieldByName('respuesta5').AsString;
   end;
   Table1.Close;
   ListBox1.Items.Add(EditPregunta.Text);
   ListBox1.Items.Add(RespuestaCAD);
   EditPregunta.Text :='';
  end;
 end;
end;

[Abuelo7]

Hola Tony.
Gracias por tu ayuda.

De todas formas, he modificado el procedure como tú me indicas y sigue pasando lo mismo, hay alguna frase que no me la contesta.
Supongo que debe haber algo más que esta mal.

Saludos

Manuel

[tcp_ip_es]

que raro, lo veo un poco imposible si haces un random de 4 solo puede salir 0,1,2,3,4 con lo que tienes acotada las posibilidades y RespuestaCAD siempre se rellena.... como no sea que en la tabla tengas alguna de las 5 respuestas vacia a alguna pregunta.....

[Abuelo7]

Hola otra vez Tony.

Parece ser que he encontrado el fallo.

En la tabla he tenido que renombrar los campos de respuesta, que estaban de respuesta1 a respuesta5, y poner de respuesta0 a respuesta4.

Y en el case, que estaba todo de 1 a 5, poner de 0 a 4.

Ahora lo he probado varias veces y no ha fallado ninguna.

Saludos.
Manuel

[*Caro*]

Empezado por Abuelo7

En la tabla he tenido que renombrar los campos de respuesta, que estaban de respuesta1 a respuesta5, y poner de respuesta0 a respuesta4.
Y en el case, que estaba todo de 1 a 5, poner de 0 a 4.
Ahora lo he probado varias veces y no ha fallado ninguna.

Hola de nuevo, como te has dado cuenta al utilizar solo Random te toma en cuenta el 0 mas, es por eso que en el primer codigo que te puse he utilizado RandomRange(1,5); para que siempre nos devuelva un valor entre 1 y 5.

Saluditos