Ver Mensaje Individual
  #3  
Antiguo 02-09-2008
Abuelo7 Abuelo7 is offline
Miembro
 
Registrado: ene 2006
Ubicación: Igualada(Barcelona) Spain
Posts: 51
Reputación: 19
Abuelo7 Va por buen camino
Cita:
Empezado por Caro Ver Mensaje
Hola Abuelo7, puedes utilizar la función Random.

Código Delphi [-]
var
 respuesta : Integer;
 RespuestaCad : String;
begin
  ...................
  //Asumimos que ya tenemos la busqueda
 Randomize;
 respuesta := RandomRange(1,5); 

 Case respuesta of
   1: RespuestaCad := Query1.FieldByName('respuesta1').AsString;
   2: RespuestaCad := Query1.FieldByName('respuesta2').AsString;
   3: RespuestaCad := Query1.FieldByName('respuesta3').AsString;
   4: RespuestaCad := Query1.FieldByName('respuesta4').AsString;
   5: RespuestaCad := Query1.FieldByName('respuesta5').AsString;
  end;

Saluditos
Hola Caro.
Ante todo perdona el retraso en agradecer tu ayuda.
Me ha quedado muy claro.
He tardado tanto porque estoy batallando con una pequeña prueba pero no sé por que motivo no logro hacer lo que quiero.
Se trata de lo siguiente:
Tengo una tabla Paradox con 2 campos, (pregunta,respuesta).Ambos campos de texto.
He creado un Form con lo siguiente:
1 DataSource
1 Table
1 Edit1
1 Edit2
1 Button para salir
Necesito hacer lo siguiente:
Al introducir un texto (pregunta) en Edit1 que busque en la tabla y si lo encuentra
que aparezca la (respuesta) en el Edit2.
He realizado un montón de intentos y me aclaro.
Supongo que con la edad se me cruzan las neuronas.
Agradecería mucho tu ayuda.
Un cordial saludo.
Manuel Reixach
Responder Con Cita