Ordenar ListBox
 

Hola, en principio lo que quería realizar parecía algo sencillo pero o bien no lo es o me estoy liando mas de lo que debería, lo que quiero hacer es ordenar un listbox que contiene datos de este tipo


quisiera ordenarlos para que se muestre así:

Como veis se ordenan numericamente por usuarioA, usuarioB o usuarioC

he realizado varias pruebas, he ordenado mediante "sort", también he eliminado los primeros 3 números y he ordenado el listbox pero ya no sabía como volver a añadir los números.

¿Alguna idea? gracias compañeros.

Hola ZayDun.

Podes hacer:

Código Delphi [-]
procedure SortByUserName(TS: TStrings);
  function CompareNom(TS: TStrings; const i1, i2: Integer): Integer;
  begin
    Result:= CompareText(Copy(TS[i1],4,MaxInt)+Copy(TS[i1],1,3),
                         Copy(TS[i2],4,MaxInt)+Copy(TS[i2],1,3));
  end;
var
  SL: TStringList;
begin
  SL:= TStringList.Create;
  try
    SL.Assign(TS);
    SL.CustomSort(@CompareNom);
    TS.Assign(SL);
  finally
    SL.Free;
  end;
end;

Uso:

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

Saludos :)

Edito: Agregué la concatenación de los números detras en la comparación para que ordene por nombre y a su vez por número.

Muchas gracias por tu ayuda ecfisa, me ordena perfectamente por usuario pero el numero principal no se ordena, queda así..

Hola ZayDun.

Revisa la corrección que hice al código anterior para solucionar ese detalle. (creo que publicamos mas o menos al mismo tiempo :))

Saludos :)

Revise el nuevo código y sigue sucediendo lo mismo, da preferencia para ordenar al usuario que a los 3 primeros números, no se donde puede estar el problema.

Gracias de nuevo ecfisa

ZayDun,

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SortListBox(InputListBox, OutPutListBox: TStrings);

  function Sort(Input: TStrings; const i1, i2: Integer): Integer;
  begin
    Result:= CompareText(Copy(Input[i1],1,3) + Copy(Input[i1],4,MaxInt),
                         Copy(Input[i2],1,3) + Copy(Input[i2],4,MaxInt));
  end;

var
  SL : TStringList;

begin
   SL := TStringList.Create;
   try
      SL.Assign(InputListBox);
      SL.CustomSort(@Sort);
      OutPutListBox.Assign(SL);
   finally
      SL.Free;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SortListBox(ListBox1.Items,ListBox2.Items);
end;

end.

El código anterior, ordena un TListBox que contiene dos campos (Código y Usuario) de menor a mayor por medio de un CustomSort, como se muestra en la siguiente imagen:



El código sugerido funciona correctamente según lo esperado en Delphi 7, Delphi 2010 y Delphi XE4 bajo Windows 7 Professional x32.

Espero sea útil :)

Nelson.

Hola ZayDun.

No se que te puede estar pasando... ¿ Será la versión de Delphi ? he visto que hay muchas diferencias entre Delphi 7 y EX4.

Esta es la prueba con el código anterior que en Delphi 7 funciona sin problemas:

Código Delphi [-]
...
implementation

procedure SortByUserName(TS: TStrings);
  function CompareNom(TS: TStrings; const i1, i2: Integer): Integer;
  begin
    Result:= CompareText(Copy(TS[i1],4,MaxInt)+Copy(TS[i1],1,3),
                         Copy(TS[i2],4,MaxInt)+Copy(TS[i2],1,3));
  end;
var
  SL: TStringList;
begin
  SL:= TStringList.Create;
  try
    SL.Assign(TS);
    SL.CustomSort(@CompareNom);
    TS.Assign(SL);
  finally
    SL.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Randomize;
  for i:= 1 to 22 do
    ListBox1.Items.Add(Format('%.3d Usuario%s',[i,Chr(65+Random(26))]));
  ListBox2.Items.Assign(ListBox1.Items);
  SortByUserName(ListBox2.Items);
end;

Resultado:


Saludos :)

muchas gracias tanto a ecfisa como nlsgarcia por vuestra ayuda, al final viendo que daba problemas dependiendo de la versión de delphi he tenido que realizarlo utilizando un TListview y añadiendo los datos por columnas para organizarlo mejor.