[Lazarus-es] Recorer archivos de una carpeta

[Ismael L. Donis Garcia]

Me da la impresión que no me sirve para lo que busco.

Busco por ejemplo entrar a la carpeta mis documentos y recorrer todos los archivos existentes y obtener los nombres de los archivos .doc

No quiero nada visual, solo recorrer la carpeta y obtener los nombre de los archivos según el filtro puesto.

Por ejemplo decir búscame en la carpeta xxx los archivos .txt o en la carpeta yyy los archivos .exe

Saludos Reiterados
========
| ISMAEL |
========

  ----- Original Message ----- 
  From: Rubén Ibáñez 
  To: Spanish version of Lazarus List 
  Sent: Wednesday, January 22, 2014 10:06 AM
  Subject: Re: [Lazarus-es] Recorer archivos de una carpeta


  Ismael:

  Me parece que el modo más sencillo de hacer lo que dices es usar OpenDialog, con la propiedad Filter puesta con la extensión que necesitas.
  unit Unit1;

  {$mode objfpc}{$H+}

  interface

  uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

  type

    { TForm1 }

    TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      OpenDialog1: TOpenDialog;
      SaveDialog1: TSaveDialog;
      SelectDirectoryDialog1: TSelectDirectoryDialog;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
      { private declarations }
    public
      { public declarations }
    end;

  var
    Form1: TForm1;

  implementation

  {$R *.lfm}

  { TForm1 }

  procedure TForm1.Button1Click(Sender: TObject);
  begin
       OpenDialog1.Execute;
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  begin
       SelectDirectoryDialog1.Execute;
  end;

  end.


  Y en el inspector de objetos puedes poner la propiedad Filter con *.ext, donde ext es la extensión deseada.

  Ojalá te sirva.

  Rubén.




  El 22 de enero de 2014, 10:02, Ismael L. Donis Garcia <ismael en citricos.co.cu> escribió:

    Necesito recorrer una carpeta y leer los nombres de los archivos con una extensión determinada.

    Alguien me podría explicar como lograr esto en Lazarus, o al menos orientarme de alguna documentación que explique como poder lograr realizar esto en Lazarus.

    Toda ayuda sobre el tema será bien venida.

    Desde ya Gracias
    ========
    | ISMAEL |
    ========


    _______________________________________________
    Lazarus-es mailing list
    Lazarus-es en lists.lazarus.freepascal.org
    http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es






------------------------------------------------------------------------------


  _______________________________________________
  Lazarus-es mailing list
  Lazarus-es en lists.lazarus.freepascal.org
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20140122/99eeeb08/attachment-0002.html>