FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Obtener los archivos de un directorio
Que tal amigos delclub Delphi, como saben no todo sabemos en este mudo... je .. en esta ocacion me dirijo a ustedes para ver si me pueden hecha r una manita... bueno, estoy haciendo una aplicacion, pero necesito obtener los archivos que se encuentran en cierto subdirectorio del disco duro y mostrarlos todos al usuario del programa, prosiguiente el usuario podra selccionar uno de estos archivos y el programa se lo mostrara, algo asi como si tubieramos un directorio con fotos y a travez de un IMAGE le muestro la foto que selccione, mi pregunta es como obtendo esos nombres de archiso y con que los muestro para que al dar un click sobre el nombre carge la imagen o el archvio, les agradesco muhco su ayuda y si me pueden poner algun ejemplo pequeño para darme una idea se los voy a agradecer muhco
__________________
J.·. |
#2
|
||||
|
||||
Te recomiendo ver la ayuda de las funciones FindFirst, FindNext y FindClose. Al menos en la versión 5 de Delphi hay un ejemplo de como usarlas.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
Busca en la ayuda acerca de las funciones FindFirst y FindNext para obtener el listado mediante un ciclo while. Los nombres de los archivos puedes colocarlos en un ListBox y en el evento OnClick de éste desplegar la imagen correspondiente en un TImage.
// Saludos |
#4
|
||||
|
||||
Cita:
|
#5
|
|||
|
|||
Última edición por dec fecha: 14-07-2006 a las 17:46:38. |
#6
|
||||
|
||||
Cita:
Función peligrosa e incorrecta: Si de por sí es poco recomendable definir funciones que creen objetos y los devuelvan como resultado, más lo es cuando la función es recursiva. En cada llamada del galimatías de arriba se crea una instancia de TStringList que, desde luego, jamás se destruye. De hecho en la llamada recursiva ni siquiera se asigna el resultado a nada. Si quisiera usar esta función para listar recursivamente los archivos de un directorio tendría que hacer algo como:
liberando el objeto que se crea dentro de la función. Claro que esto sólo liberaría un objeto y no todos los que se crean en las llamadas recursivas que se pierden en el limbo. Y, claro está, el memo solo listaría los archivos de primer nivel ya que los de los subdirectorios se perdieron en el olvido. // Saludos |
#7
|
||||
|
||||
Saludos, encontré este hilo intentando responder a una duda mía. A mi me ha funcionado (a medias) así:
Claro está, esto también me da los archivos de los subdirectorios y todo, cosa que no quiero. Me gustaría implantar la solución de Román a mi procedure, ya que el function de quimeras me da error en la primera línea como que no he definido el tipo de resultado (Uso Delphi Enterprise). Muchas gracias
__________________
:) |
|
|
|