Consulta en Tabla

[*Caro*]

Hola de nuevo amiguito, lo que pasa es que la función Random te va devolver un numero aleatorio que sea mayor o igual a 0 pero menor al parametro que le pasas, por lo tanto no debes pasarle 4 sino 5 Random(5).

Saluditos

[Abuelo7]

Muchas gracias Caro.

Bueno, ahora ya tengo la primera parte. Ahora voy a seguir porque todavía me queda mucho trabajo.
He de ampliar mucho la tabla.
He de tener en cuenta que puede haber solo 1 respuesta o 5 o más.
Debería tener opciones para grabar las conversaciones.

Bueno y muchas más cosas que se me ocurren.

No sé si tú has oído hablar de un programa llamado Zebal, que de verdad te digo que era una maravilla a mi entender.
Recordaba tu nombre, el tiempo que hacía que no conversabas con él.
Si le decías en una conversación por ejemplo algo de 'chocolate', e una próxima sesión, de pronto te decía que porque no le hablabas del chocolate.

Lástima que estaba construído en Clipper y no hay programa fuente y el programador ha desaparecido.

Bueno, no te canso más.

Hasta luego.

Manuel.

[Abuelo7]

Hola amigos/amigas.

La última modificación que he hecho en el programa, ha sido cambiar el ListBox por un Memo. De esta forma, cuando se entabla una conversación con el programa, las frases de preguntas y respuestas van apareciendo en la parte de abajo y desapareciendo por arriba, prescindiendo de lo larga que sea la conversación.
Ahora voy a pelearme con el tema de trabajar con varias tablas a la vez.

Gracias por vuestra atención.

Saludos

Manuel

[Abuelo7]

Hola otra vez.

El asunto de trabajar con 2 tablas ya lo tengo solucionado.

Ahora necesitaría vuestra ayuda para lo siguiente:

Al introducir una frase o cadena de texto en un Edit que pueda separar la cadena por palabras, asignando cada palabra a una variable, para poder trabajar despues con cada una.

En resumen es lo siguiente:

que una vez tenga las variables de las palabras, comprobar una por una si existen en las tablas y en función del resultado, preparar la respuesta.

Gracias
Saludos.
Manuel

[*Caro*]

Empezado por Abuelo7

Ahora necesitaría vuestra ayuda para lo siguiente:

Al introducir una frase o cadena de texto en un Edit que pueda separar la cadena por palabras, asignando cada palabra a una variable, para poder trabajar despues con cada una.

Hola Manuel, para separar tu cadena en palabras puedes utilizar un stringList y utilizar sus funciones Delimiter y DelimiterText, has esta pruebita y tu ves como lo acomodas a tu codigo.

Código Delphi [-]
var
  sl : TStringList;
begin
  sl := TStringList.Create;

  sl.Delimiter := #32; //nuestro delimitador sera el espacio
  sl.DelimitedText := Edit1.Text;
 
  for i:=0 to sl.Count-1 do
   showmessage('La palabra es: '+sl[i]);
 
  sl.Free;
end;

Saluditos

[Abuelo7]

Hola Caro.

Gracias por tu última ayuda. Ha sido estupenda.

Ahora tengo un problema con el código que te paso.
Como verás en él, quiero que cuando se pregunte 'que hora es?', conteste acertadamente y cuando se pida 'que fecha es hoy' también.

El problema que tengo es que en cuanto a la hora aparece bien en el Memo,
pero si a continuación pregunto la fecha, aparece bien, pero antes sale 0.00.00.

Me puedes revisar el código?

Gracias una vez más.
Manuel

[Abuelo7]

Perdona me olvidé el código.
unit saberHora;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(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.Edit1KeyPress(Sender: TObject; var Key: Char);
var
DateTime : TDateTime;
Str : String;
pregunta : String;
begin
if key=#13 then
begin
pregunta := Edit1.Text;

if pregunta=('que hora es?') then

DateTime := Time; // store the current date and time
str := TimeToStr(DateTime); // convert the time into a string
Memo1.Lines.Add(Str);

Edit1.Text:='';

end;
begin


if pregunta=('que fecha es hoy') then
begin
DateTime := Date;
str := DateToStr(DateTime);

Memo1.Lines.Add(Str);

end;
end;
end;

end.