[Lazarus-es] Recorer archivos de una carpeta

Maxi maximiliano.duarte en gmail.com
Mie Ene 22 18:56:00 CET 2014


Busca de filesearch Ahora no tengo a mano para enviarte ejemplos desde el
celular
El 22/01/2014 13:34, "Ismael L. Donis Garcia" <ismael en citricos.co.cu>
escribió:

>  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 <ruben.mariano.ibanez en gmail.com>
> *To:* Spanish version of Lazarus List<lazarus-es en lists.lazarus.freepascal.org>
> *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
>
>
> _______________________________________________
> 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/3d3d21f4/attachment-0002.html>


More information about the Lazarus-es mailing list