Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-06-2005
munheko munheko is offline
Registrado
 
Registrado: Apr 2005
Posts: 8
Poder: 0
munheko Va por buen camino
ordenar un listview

Hola a todos,

Tengo una duda sobre la ordenacion de un listview por una columna cualquiera con un dato que es de tipo fecha. he miradoun monton de codigos pero no he sabido sacar nada en claro, y queria preguntaros si hay algun metodo simple mediante el cual pueda ordenar el listview con un dato fecha o hora.

Un saludo y muchas gracias
Responder Con Cita
  #2  
Antiguo 14-06-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: May 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.874
Poder: 21
delphi.com.ar Va por buen camino
Gracias al método compare, puedes definir a tu gusto el orden del TListView.
Esto lo extraje de la ayuda de Delphi:

Código Delphi [-]
{The OnColumnClick event handler sets the global 
  variable to indicate the column to sort and calls AlphaSort}

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);

begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;


{The OnCompare event handler causes the list view to sort on the selected column}

procedure TForm1.ListView1Compare(Sender: TObject; Item1, 
              Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;

end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.

Última edición por delphi.com.ar fecha: 14-06-2005 a las 14:23:36.
Responder Con Cita
  #3  
Antiguo 14-06-2005
munheko munheko is offline
Registrado
 
Registrado: Apr 2005
Posts: 8
Poder: 0
munheko Va por buen camino
vaya,

Pues yo sigo sin saber como aplicar ese codigo, mis conocimiento de delphi no son muy altos

Gracias, un saludo
Responder Con Cita
  #4  
Antiguo 14-06-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: May 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.874
Poder: 21
delphi.com.ar Va por buen camino
Cita:
Empezado por munheko
...mis conocimiento de delphi no son muy altos...
Será cuestión de estudiar un poquito, no es nada difícil . Te recomiendo intentar aplicar este código guiándote con la ayuda, que es muy completa y te facilitará mucho las cosas.
Simplemente este código lo que hace es cuando el usuario hace click en el encabezado de una columna, guarda el índice de la columna en la variable ColumnToSort y ejecuta el método AlphaSort. Luego de esto, el TListView comenzará a ordenar los datos, preguntándote en el evento OnCompare que item es mayor que otro.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:14:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi