Cita:
Empezado por Caro
Hola Abuelo7, puedes utilizar la función Random.
Código Delphi [-]
var
respuesta : Integer;
RespuestaCad : String;
begin
...................
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