Ordenar numeros de un listbox de mayor a menor o viceversa
 

Hola gente de club Dephi!!!

Tengo un problema con un listbox, la situacion es la siguiente:

Por medio de un boton genero una cantidad aleatoria de numeros dentro de un listbox, mi pregunta es la siguiente:
como puedo hacer para por medio de otro boton ordenar esos numeros generados anteriormente de mayor a menor o en el caso contrario de menor a mayor. Por favor si es posible utilizando una estructura de trabajo "For ... do" en la programacion.

Muchas gracias!!!
Saludos!!!!

Hola ale4132.

Un modo simple:

Código Delphi [-]
procedure SortListBox(ListBox: TListBox; Asc: Boolean = True);
var
  i,j: Integer;
  aux: string;
  Change: Boolean;
begin
  with ListBox do
  begin
    Items.BeginUpdate;
    for i:= 0 to Items.Count-2 do
      for j:= i+1 to Items.Count-1 do
      begin
        if Asc then
          Change:= StrToInt(Items[i]) > StrToInt(Items[j])
        else
          Change:= StrToInt(Items[i]) < StrToInt(Items[j]);
        if Change then
        begin
          aux     := Items[i];
          Items[i]:= Items[j];
          Items[j]:= aux;
        end;
      end;
    Items.EndUpdate;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.btnSortClick(Sender: TObject);
begin
  SortListBox(ListBox1, CheckBoxDesc.Checked);
end;

Donde la condición de ordenamiento ascendente o descendente depende de la propiedad Checked de un CheckBox.

Saludos.

Muchas Gracias, la respuesta fue de mucha utilidad.
saludos!!!

para el caso en que quisiera solo ordenarlos de mayor a menor por medio de un boton como podria hacerlo???

Hola ale4132.

Solamente:

Código Delphi [-]
 SortListBox(ListBox1, False);

Saludos. :)

ale4132,

Revisa este código:

Código Delphi [-]
// Sort de Mayor a Menor.
procedure TForm1.Button9Click(Sender: TObject);
var
   i,j,p : Integer;
begin
   for i := 0 to ListBox1.Count-1 do
      for j := i+1 to ListBox1.Count-1 do
      begin
         if StrToInt(ListBox1.Items.Strings[j]) > StrToInt(ListBox1.Items.Strings[i]) then
         begin
            p := ListBox1.Items.IndexOf(ListBox1.Items.Strings[j]);
            ListBox1.Items.Move(p,i);
         end;
      end;
end;

// Sort de Menor a Mayor.
procedure TForm1.Button10Click(Sender: TObject);
var
   i,j,p : Integer;
begin
   for i := 0 to ListBox1.Count-1 do
      for j := i+1 to ListBox1.Count-1 do
      begin
         if StrToInt(ListBox1.Items.Strings[j]) < StrToInt(ListBox1.Items.Strings[i]) then
         begin
            p := ListBox1.Items.IndexOf(ListBox1.Items.Strings[j]);
            ListBox1.Items.Move(p,i);
         end;
      end;
end;

El código anterior clasifica de Mayor a Menor y viceversa una lista de números en un control TListBox.

Espero sea útil :)

Nelson.

gracias por tu respuesta nelson, me fue de utilidad.
saludos!!!

Al leer lo que resalté con negrita inmediatamente me he dado un WTF ¿Y digo yo? ¿Que existe una estructura de ciclo que no lo sea? No se... lo máximo que podría concebirse es el condicional GOTO pero de eso ya ha avanzado mucho la informática como para siquiera pensar en utilizarlo :D
Lo que acabas de demostrar en este hilo es algo muy simple: no has estudiado o prestado atención a la clase de estructuras de datos y algoritmos.

Debieras de saber que existen varios métodos de ordenamiento. Algunos más veloces que otros, otros más estables, y cada uno tiene sus pros y contras como áreas o casos de aplicación. Pregunto yo ¿Por cual método, BubbleSort (el que te han pasado), QuickSort, InsercionSort,... TimSort?

Invito a los que han escrito el código que de ahora en más en cuanto se presente un estudiante y veas hilos como éste en vez de aventarles el código y el facilitarles el no razonamiento y la falta de estudio o lo que es lo mismo el simple y económico copy & paste les hagan llegar un enlace a un sitio en donde vean de a que se trata... como éste para el caso.
Se delata totalmente... basta con leer el final de su mensaje: "en la programación" de que está en sus pininos y no hay interés en sentarse a estudiarlo.

Saludos,