[Lazarus-es] Recorer archivos de una carpeta
Rubén Ibáñez
ruben.mariano.ibanez en gmail.com
Mie Ene 22 16:06:05 CET 2014
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
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20140122/4803a5aa/attachment-0002.html>
More information about the Lazarus-es
mailing list