Ordenar por fecha archivos de TFileListBox
Hola a tod@s
bien hoy me ocupa intentar entregar el contenido de un TFileListBox a un ListBox, estoy lo hago puesto que el TFileListBox es ReadOnly y no me permito organizar los archivos de forma diferente a la alfabética para el caso estoy utilizando código que encontré en la red de esta forma primera función
en orden de ideas me va ayudar a obtener los datos de la fecha y hora del archivo segunda función ahí esta mi gran problema
bien en orden de ideas deseo recibir un TDirectoryListBox y devolver en forma ordenada por fecha los archivos contenidos en el directorio, pero cuando se ejecuta esta línea de código _listadoArchivos.Directory:= pListDirectory.Directory;, se caen las cosas y me envía el siguiente mensaje Control has no parent windows. la verdad no tengo ni idea que puede ser el error pues en el creador se esta invocando la ventana donde ejecuto el procedimiento _listadoArchivos:= TFileListBox.Create(TComponent(pListDirectory.Parent)); y el evento donde lo estoy invocando es el change del TDirectoryListBox. Agradezco de antemano la colaboración gertorresm colombia |
Hola GerTorresM.
Cita:
Cita:
Entonces, y si no interpreté mal la consigna, creo que se puede hacer de forma mucho mas simple:
Ejemplo de llamada:
Saludos :) |
Funciona pero..
Ecfisa Muchas gracias de antemano
al correr me envia el siguiente error
en la segunda línea me envía el siguiente error Incompatible types: 'Cardinal' and 'TSearchRec' te agradezco tu tiempo y el interes sobre éste tema gertorresm |
Hola GerTorresM.
Necesistas usar el procedimiento FindClose de SysUtils. Revisa que en la cláusula uses de tu unidad esté declarado Windows antes de SysUtils, de otro modo tomará la declaración del procedimiento de la unidad Windows:
Otra solución es especificar que usarás el procedimiento declarado en SysUtils de este modo:
Saludos :) |
Esa fue la mejor respuesta
Ecfisa:
Te agradezco mucho tu tiempo y paciencia, la verdad es que era justo lo que necesitaba !! |
La franja horaria es GMT +2. Ahora son las 15:50:19. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi