Ordenar ListBox

ZayDun · #3 21-04-2014

Cita:

Empezado por ecfisa

Hola ZayDun.

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[i2],4,MaxInt));
  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

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

Código:

009 UsuarioA
005 UsuarioA
002 UsuarioB
006 UsuarioC
002 UsuarioC

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Ordenar numeros de un listbox de mayor a menor o viceversa	ale4132	Varios	7	17-12-2012 15:17:46
quiero ordenar en varios edit lo que tengo en un listbox	vanesa007	OOP	11	24-04-2012 03:55:30
como puedo ordenar y editar los datos de un listbox	manu12345	OOP	9	19-05-2008 20:54:51
agregar y/o eliminar items de un listbox a partir de otro listbox	Goyo	PHP	2	27-09-2007 16:46:30
ordenar un listBox	seb@	OOP	1	26-03-2004 15:47:25