Hola:
Si no quieres que se repitan las preguntas, puedes tener una estructura como la siguiente:
Tabla1: tiene 7 campos: CODIGO, Pregunta, Respuesta1, Respuesta2, Respuesta3, Respuesta4, RespuestaCorrecta
Tabla2: tiene 1 campo: CODIGO
Inicialmente recorres la tabla1 e insertas todos los códigos en la tabla2:
Tabla1.First;
while not Tabla1.EOF do
begin
Tabla2.Insert;
Tabla2.FieldByName('CODIGO').AsInteger := Tabla1.FieldByName('CODIGO').AsInteger;
Tabla2.Post;
Tabla1.Next;
end;
////////////////////////////////////////////////////////
A continuación puedes tener en un Query una select como ésta:
Select count(CODIGO)
from Tabla2
Así obtienes cuantas preguntas te quedan sin haber sido mostradas. El valor obtenido lo guardas en la variable NumPreguntas:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select count(CODIGO) from Tabla2');
Query1.Open;
NumPreguntas := Query1.Fields[0].AsInteger;
Ahora calculas un aleatorio que vaya de 0 a (NumPreguntas -1)
Posicion := Random(NumPreguntas); // Recuerda hacer el
// randomize en el
// onCreate del form
Ahora vas al primer registro de Tabla2 (Tabla2.First) y haces un bucle for que avance hasta el registro Posicion:
Tabla2.First;
for i:= 0 to Posicion do
begin
Tabla2.Next;
end;
Por último, obtienes el código de la pregunta y borras ese registro (Tabla2.Delete). Después buscas ese código en Tabla1 para obtener el enunciado de la pregunta, las respuestas posibles y la correcta:
Cod := Tabla2.FieldByName('CODIGO').AsInteger;
Tabla2.Delete;
Tabla1.Locate('CODIGO', Cod, []);
label1.Caption := Tabla1.FieldByName('Pregunta').AsString;
label2.Caption := Tabla1.FieldByName('Respuesta1').AsString;
.....
Cada vez que necesites una pregunta nueva repites los pasos desde el marcado con ////////////////////////////////////////////////////////
Si en algún momento obtienes un 0 en NumPreguntas es que ya se han hecho todas las preguntas.
Por supuesto, puedes ampliar Tabla1 para que contenga el tema, así, cuando hagas el paso inicial de copiar los códigos de Tabla1 a Tabla2, sólo copiarás los códigos del tema actualmente en curso.
Como es un ejercicio gracioso, si tienes dudas mañana en un rato te lo programo para Interbase
, aunque es mucha base de datos para algo tan simple.
Un saludo
Nacho