Ordenar numeros de un listbox de mayor a menor o viceversa

[ale4132]

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!!!!

[ecfisa]

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.

[ale4132]

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

[ale4132]

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

[ecfisa]

Empezado por ale4132

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.

[[nlsgarcia]]

ale4132,

Empezado por ale4132

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.

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.