Elegir las preguntas al azar

[loquillo3]

Quiero crear una aplicacion donde el programa elija al azar las preguntas.

Ej. Tengo 20 preguntas y quiero que la aplicacion tome 5, el usuario debera de responderla.

Hay alguna forma de hacer esto.

[[cHackAll]]

Guarda las preguntas en un TStrings (Ej. TListBox.Items)... y utiliza las funciones Randomize y Random para obtener 5 al azar.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Left, Index: Cardinal;
begin
 Left := 5;
 Randomize;
 while LongBool(Left) do
  begin
   Index := Random(ListBox1.Count);
   ShowMessage(ListBox1.Items[Index]);
//   ListBox1.Items.Delete(Index); // para no repetir...
   Dec(Left);
  end;
end;

[jachguate]

Si.

Mirá la ayuda de la función Random(). Al inicio del programa debes llamar a Randomize().

Hasta luego.

[loquillo3]

Gracias,

Ahora si yo quiero ponerle las respuestas tipo seleccion multiple, y que al final me sume las respuestas correctas y el puntaje.


Saludos

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Left, Index: Cardinal;
begin
 Left := 5;
 Randomize;
 RadioGroup1.Items.Clear;
 while LongBool(Left) do
  begin
   Index := Random(ListBox1.Count);
   RadioGroup1.Items.Add(ListBox1.Items[Index]);
//   ListBox1.Items.Delete(Index); // para no repetir...
   Dec(Left);
  end;
end;

[jachguate]

Empezado por loquillo3

Ahora si yo quiero ponerle las respuestas tipo seleccion multiple, y que al final me sume las respuestas correctas y el puntaje.

Con todo respeto... creo que esa es TU tarea, y no la nuestra. Tu duda original está despejada.

Hasta luego.