metodo de ordenacion

[bothy]

Quisiera saber si delphi 2009 tiene alguna funcion o propiedad asi como sort para ordenar los numeros que balla introduciendo en un listbox .

si en la propiedad sorted del litsbox la activo y me ordena alfabeicamente y yo lo que quisiera saber como le hago para que ordene numericamente.

[BrunoBsso]

Que yo sepa no hay un método así para los TStrings (los items de los TListBox son del tipo TStrings).
Lo único que te puedo recomendar es este procedimiento que acabo de hacer para tu pregunta:

Código Delphi [-]
procedure OrdenNumerico(var L:TListBox; Menor_A_Mayor:boolean = True);
{Si Menor_A_Mayor es TRUE, se guardan de menor a mayor}
{Si es FALSE, se guardan de mayor a menor}
var
  I,J,NumI,NumJ,Indice:Integer;
  Temp:String;
begin
  for I := 0 to L.Count - 1 do begin
    Indice:=I;
    for J := I+1 to L.Count - 1 do begin
      NumI:=StrToInt(L.Items.Strings[Indice]);
      NumJ:=StrToINt(L.Items.Strings[J]);
      case Menor_A_Mayor of
        TRUE:
          begin
            if (NumJ < NumI) then
              Indice:=J;
          end;
        FALSE:
          begin
            if (NumJ > NumI) then
              Indice:=J;
          end;
      end; //End CASE
    end; //End FOR J
    Temp:=L.Items.Strings[i];
    L.Items.Strings[i]:=L.Items.Strings[Indice];
    L.Items.Strings[Indice]:=Temp;
  end; //End FOR I
end;

Solamente ordena números. Si tu TListBox contiene palabras, va a tirar error.
Le mandás como primer argumento el TListBox que quieras ordenar (ListBox1, ListaNumeros, como se llame) y como segundo argumento le mandás TRUE si querés que los ordene de menor a mayor (ascendente) o FALSE si querés que los ordene de mayor a menor (descendente).
Saludos!

[bothy]

gracias colega un poco dificil para mi que son principiante todabia pero si logro entenderle . .
buscaba algo mas facil asi como el metodo de la burbuja ...

[Neftali [Germán.Estévez]]

Empezado por bothy

...tiene alguna funcion o propiedad asi como sort para ordenar los numeros que balla introduciendo en un listbox .
si en la propiedad sorted del litsbox la activo y me ordena alfabeicamente y yo lo que quisiera saber como le hago para que ordene numericamente.

Si son pocos números y el tema de velocidad no es muy importante, a veces he utilizado un TStringList a modo de intermediario.

(0) Desactivar el orden del ListBox.
(1) Copias todos los números al TSttingList pero formateandolos como cadenas con ceros a la izquierda; 00001, 00023, 00167,...
(2) Mandas ordenar ese StringList, que en este caso los ordena como cadenas, pero con la ordenación numérica correcta.
(3) Un for que los vuelve a copiar al ListBox convirtiéndolos a números.

Ya se no, es nada "sofisticado" pero para 1000, 5000,... números es inmediato.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  TS:TStringList;
  str:string;
  i, j:Integer;
begin
  TS := TStringList.Create();
  try
    // Recorrer la lista y almacenarlo en la Lista intermedia    
    for i := 0 to (ListBox1.Items.Count - 1) do begin
      Str := DupeString('0', 10) + ListBox1.Items[i];
      Str := Copy(Str, Length(Str) - 10, Length(Str));
      TS.Add(Str)
    end;

    //ordenar
    TS.Sorted := True;

    // Limpiar la original
    ListBox1.Items.Clear;

    // Volver a pasarlos a la original
    for i := 0 to (TS.Count - 1) do begin
      j := StrToInt(TS[i]);
      ListBox1.Items.Add(IntToStr(j));
    end;

  finally
    FreeAndNil(TS);
  end;
end;

[BrunoBsso]

Empezado por bothy

gracias colega un poco dificil para mi que son principiante todabia pero si logro entenderle . .
buscaba algo mas facil asi como el metodo de la burbuja ...

No te hice el Bubble Sort porque para una lista con cientos de miles de números tardaría mucho y come muchos recursos (es recursivo).
Tampoco hice lo que explicó Neftali porque no quise confundirte con los TStringList que son otro tipo de datos, como los TStrings, pero mejores (opinión mía).
El método que te expliqué se llama de intercambio y es el más simple.
Además, Neftali, no entiendo por que esto:

Código Delphi [-]
for i := 0 to (TS.Count - 1) do begin
  j := StrToInt(TS[i]);
  ListBox1.Items.Add(IntToStr(j));
end;

Primero, no sabía que se podía ubicar un string en una lista así (TS[i]), pensé que se podía solamente con TS.Strings[i].
Segundo, para que almacenar ese string en un integer, para después copiarlo como string de nuevo. Es un paso en vano.
¿No sería mejor ListBox1.Items.Add(TS.Strings[i])?
Saludos!!

[bothy]

Se me hace mas entendible el metodo de intercambio de BrunoBsso
ya que el otro se me iso muy complicado.. ya que soy novato en delphi pero si les entiendo a alos metodos que pusieron gracias amigos..

[Neftali [Germán.Estévez]]

Empezado por bothy

Se me hace mas entendible el metodo de intercambio de BrunoBsso ya que el otro se me iso muy complicado.. ya que soy novato en delphi pero si les entiendo a alos metodos que pusieron gracias amigos..

Intenta comprederlos los dos y utiliza el que tú creas conveniente.
Mejor 2 que 1 ¿no?

Si tienes algunas duda pregunta sin problemas.

Empezado por BrunoBsso

Primero, no sabía que se podía ubicar un string en una lista así (TS[i])

En este caso puedes usar el que prefieras, son equivalentes.

Empezado por BrunoBsso

Segundo, para que almacenar ese string en un integer, para después copiarlo como string de nuevo. Es un paso en vano.
¿No sería mejor ListBox1.Items.Add(TS.Strings[i])?

Cierto, era por una cuestión de claridad y que le fuera más sencillo de entender.

Como bien dices esto:

Código Delphi [-]
    for i := 0 to (TS.Count - 1) do begin
      j := StrToInt(TS[i]);
      ListBox1.Items.Add(IntToStr(j));
    end;

es equivalente a esto:

Código Delphi [-]
    for i := 0 to (TS.Count - 1) do begin
      ListBox1.Items.Add(TS.Strings[i]);
    end;

Aunque en realidad lo más simple y lo que yo hubiera hecho, hubiera sido esto (sin usar for):

Código Delphi [-]
  ListBox1.Items.AddStrings(TS);

Pero me pareció más simple. Tal vez al final lié la cosa...

[BrunoBsso]

Mirá vos, después de tanto manejar TStringList me vengo a enterar recién que se pueden ubicar con T[i].
Siempre se aprende algo nuevo, ¿no?
Mucho mejor, más rápido que escribir T.Strings[i]
Saludos y gracias por el tip!!!!

[[Delphius]]

Empezado por BrunoBsso

No te hice el Bubble Sort porque para una lista con cientos de miles de números tardaría mucho y come muchos recursos (es recursivo).

Sólo una corrección si me lo permites,
BubbleSort no es recursivo, es iterativo. Es uno de los algoritmos más estable y se basa en el método por intercambio.

El que es recursivo, e intuyo que es al que te refieres, es QuikSort (uno de los inestables), el cual si bien tiene la ventaja de tener una complejidad computacional menor (en términos promedios, en el peor caso iguala al Burbuja y otros) que el Burbuja tiene la contra de requerir más uso de memoria (aunque hay que reconocer que no es además muy exagerada... del orden O(log n)) y su método es de partición.

Saludos,

[BrunoBsso]

Tenés razón, me los confundí entre los 2.
Hace tanto que no uso ninguno que ya ni me acuerdo como se llaman jajaja.
Gracias por la corrección!

[roman]

Empezado por Neftali

(0) Desactivar el orden del ListBox.
(1) Copias todos los números al TSttingList pero formateandolos como cadenas con ceros a la izquierda; 00001, 00023, 00167,...
(2) Mandas ordenar ese StringList, que en este caso los ordena como cadenas, pero con la ordenación numérica correcta.
(3) Un for que los vuelve a copiar al ListBox convirtiéndolos a números.

Neftali, puedes ahorrar unos pasos si usas el método CustomSort de TStringList. A este método le pasas como parámetro una función que compara dos valores. De esta manera te evitas el rellenar con ceros.

// Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

Neftali, puedes ahorrar unos pasos si usas el método CustomSort de TStringList. A este método le pasas como parámetro una función que compara dos valores. De esta manera te evitas el rellenar con ceros.

Cierto Román.
Y ese sería aun mejor que el comentado antes.
La verdad es que es de esas cosas que sabes que están ahí, pero que nunca usas. Es mi caso, no lo he usado nunca y en este caso simplificaría las cosas.