Ordenar numeros de un listbox de mayor a menor o viceversa

[[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.