Obtener los archivos de un directorio

[roman]

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

[roman]

Empezado por delphi.com.ar un minuto antes

Respuesta

Luego no digas ¿eh?

[quimeras]

Código Delphi [-]
 // Tomado de Trucomanía http://www.q3.nu/trucomania/ftesp.html
  
  function TPrincipal.RastreaDir( Dir: string ):TStringList;
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     Result := TStringList.Create;
     Result.Clear;
     ChDir ( Dir );
     if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
     repeat
     if ( (FileSearch.Attr and fadirectory) = fadirectory) then
       begin
         if  (FileSearch.Name <> '.')and (FileSearch.Name <> '..') then
           RastreaDir( Dir + '\' + FileSearch.Name );
       end
     else
       begin
         {Pon aqui lo que quieras hacer con los ficheros encontrados}
         Result.Add( FileSearch.Name );
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

[roman]

Empezado por quimeras

// Tomado de Trucomanía

Guau!

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:

Código Delphi [-]
var
  Lista: TStrngList;

begin
  Lista := RastreaDir('C:\Mis Documentos');
  Memo1.Lines.AddStrings(Lista);
  Lista.Free;
end;

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

[DarkByte]

Saludos, encontré este hilo intentando responder a una duda mía. A mi me ha funcionado (a medias) así:

Código Delphi [-]
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     ChDir ( Dir );
     if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
     repeat
     if ( (FileSearch.Attr and fadirectory) = fadirectory) then
       begin
         if  (FileSearch.Name <> '.')and (FileSearch.Name <> '..') then
           Rastrear( Dir + '\' + FileSearch.Name );
       end
     else
       begin
         {Pon aqui lo que quieras hacer con los ficheros encontrados}
         Form1.Memo1.Lines.Add (FileSearch.Name);
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

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

[roman]

Empezado por DarkByte

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).

¿Y cuál es la duda?

De hecho lo "difícil" es hacerlo recursivo pero si no lo necesitas entonces la respuesta está desde el mensaje de delphi.com.ar al principio del hilo.

// Saludos

[DarkByte]

Bueno, ya lo he conseguido, la duda era que no sabía eliminar el if de la búsqueda recursiva.

Código Delphi [-]
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     ChDir ( Dir );
     if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
     repeat
       begin
         //Pon aqui lo que quieras hacer con los ficheros encontrados
         Form1.Memo1.Lines.Add (FileSearch.Name);
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

Ala, ya está, me parece que este hilo debería quedar en la colección de hilos útiles. a mi me parece que lo és y mucho.