ale4132,
Cita:
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
[-]
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;
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.