comparar listas de numeros
 

:confused::confused::confused::confused:Hola... Resulta que estoy cargando numeros aleatorios a un listbox y estoy cargando los numeros de mi bd a otro listbox, luego los comparo y los muestro pero mi bd no comienza el autonumerico en 1, asi que no me muestra todos mis items.... como puedo validar esto???????

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;

¿Que base de datos es?

¿Utilizas por ejemplo secuanciadores de Oracle?

A veces para los autonumericos y secuenciadores el motor de base de datos correspondiente se queda con algunos 'numeros' en la cahé para ir más rápido. Dinos que SGBD utilizas

Saludos

Gracias!!!

Ya pude resolver mi problemas!

Hola,

Se acostumbra en estos Foros (y en otros) el explicar cómo solucionaste el problema, si es que lo solucionaste, para que de ese modo alguien más pueda aprovecharse. ¿No te parece a ti que esto es razonable? De otro modo se conocerá el problema, pero, no la solución al mismo, lo que sería una verdadera lástima, ya que encontraste cómo resolverlo. ;)

Tienes Razón!!!... Aqui anexo la solición... Lo que debia realizar era una comparacion con los items de los listbox y los itemindex

Código Delphi [-]
cual := ListBoxResult.ItemIndex;
id_pregunta := StrToInt(ListBoxResultId.Items[cual]);

F_Examen.btncalificar.Enabled:=false;

DMExamen.ADOQueryExamen.Close;
DMExamen.ADOQueryExamen.Open;

  with DMExamen.ADOQueryExamen do
  begin
   close;
   sql.Text:=('SELECT *  '+
             'FROM preguntas, tipo_pregunta, carrera '+
             'WHERE preguntas.sesion= '+ QuotedStr(F_Examen.sesion) +
             ' AND preguntas.id_tipo_pregunta=tipo_pregunta.id_tipo_pregunta'+
             ' AND preguntas.anno='+ QuotedStr(F_Examen.ano));
   open;
  end;

DMExamen.DataSourceExamen.AutoEdit:=true;

  DMExamen.ADOQueryExamen.Filter := 'id_pregunta = '+ inttostr(id_pregunta);
  DMExamen.ADOQueryExamen.Filtered := true;

for n:=0 to F_Examen.ListBox_pregunta.Items.Count -1 do begin
  id:= StrToInt(F_Examen.ListBox_pregunta.Items[n]);
  if (id_pregunta = id) then
    begin
       for j:=0 to F_Examen.ListBox_aleatorios.Items.Count -1 do begin
        id_ale:= StrToInt(F_Examen.ListBox_aleatorios.Items[j]);
        if (n = id_ale)then
           F_Examen.num:=j;
      end;

     // F_Examen.num:=n;//F_Examen.ListBox_pregunta.ItemIndex;
    end;

 end;

:rolleyes::rolleyes:;);)