Código Delphi [-] DMExamen.DataSourceExamen.AutoEdit:=true; F_Examen.ListBox_aleatorios.Items.Clear; F_Examen.listbox(); Ristra:=TAlea.Create(F_Examen.ListBox_pregunta.Items.Count); {Sacamos numeros sin repetir} for n:=1 to F_Examen.ListBox_pregunta.Items.Count do begin F_Examen.ListBox_aleatorios.Items.Add( IntToStr(Ristra.PillaNumero) ); end; F_Examen.pregunta := StrToInt(F_Examen.ListBox_pregunta.Items.Strings[strtoint(F_Examen.ListBox_aleatorios.items.Strings[0])]); DMExamen.ADOQueryExamen.Filter := 'id_pregunta = '+ inttostr(F_Examen.pregunta); DMExamen.ADOQueryExamen.Filtered := true;
DMExamen.DataSourceExamen.AutoEdit:=true; F_Examen.ListBox_aleatorios.Items.Clear; F_Examen.listbox(); Ristra:=TAlea.Create(F_Examen.ListBox_pregunta.Items.Count); {Sacamos numeros sin repetir} for n:=1 to F_Examen.ListBox_pregunta.Items.Count do begin F_Examen.ListBox_aleatorios.Items.Add( IntToStr(Ristra.PillaNumero) ); end; F_Examen.pregunta := StrToInt(F_Examen.ListBox_pregunta.Items.Strings[strtoint(F_Examen.ListBox_aleatorios.items.Strings[0])]); DMExamen.ADOQueryExamen.Filter := 'id_pregunta = '+ inttostr(F_Examen.pregunta); DMExamen.ADOQueryExamen.Filtered := true;