[Lazarus-es] Recorer archivos de una carpeta
Rubén Ibáñez
ruben.mariano.ibanez en gmail.com
Mie Ene 22 21:54:41 CET 2014
Sí, he hecho esta pruebita y está funcionando perfectamente. Gracias, he
aprendido algo muy útil.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
Lista: TStringList;
opcion: boolean;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked then opcion:= true else opcion:= false;
Lista := FindAllFiles(Edit2.Text, Edit1.Text, opcion);
Memo1.Text:= Lista.CommaText;
end;
end.
El 22 de enero de 2014, 15:35, Maxi <maximiliano.duarte en gmail.com> escribió:
> Muy buena esa funcion!!
> El 22/01/2014 16:00, "Jesus Reyes" <jesusrmx en yahoo.com.mx> escribió:
>
> El Miércoles, 22 de enero, 2014 8:32:29, 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
>> |
>>
>> Si usas la unit FileUtil (paquete LazUtils) puede hacer algo como esto:
>>
>> Lista := FindAllFiles( '/un/directorio', '*.xml', false);
>>
>> Regresa un TStringList (Lista) con los archivos que coincidan con la
>> extensión .xml en /un/directorio , el último parámetro indica si quieres
>> que también busque en subdirectorios o no.
>>
>> Jesus Reyes A.
>>
>>
>> _______________________________________________
>> 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/c17c7302/attachment-0002.html>
More information about the Lazarus-es
mailing list