[Lazarus-es] Recorer archivos de una carpeta

Rubén Ibáñez ruben.mariano.ibanez en gmail.com
Mie Ene 22 19:39:33 CET 2014


También me parece que puede servir la función FSearch:

http://www.freepascal.org/docs-html/rtl/unix/fsearch.html

saludos.


El 22 de enero de 2014, 14:33, Martin Gomez <mmgomez en gmail.com> escribió:

> Ten en cuenta que el ejemplo sólo hace el Write en pantalla si es una
> carpeta (faDirectory), en la ayuda de Lazarus están los valores para buscar
> archivos, la extensión la defines en el FindFirst, poniendo '*.doc?' (el
> comodín ? es para los .docx)
>
>
> On Wed, Jan 22, 2014 at 3:30 PM, Martin Gomez <mmgomez en gmail.com> wrote:
>
>>
>> 2014/1/22 Maxi <maximiliano.duarte en gmail.com>
>>
>>> Busca de filesearch Ahora no tengo a mano para enviarte ejemplos desde
>>> el celular
>>
>>
>> Es algo así como FileFindFirst y FileFindNext, utilizando en el "next"
>> la estructura de búsqueda creada en el findfirst.
>> 
>> http://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html
>>
>> aqui el ejemplo de la web:
>>
>> Program Example43;
>> { This program demonstrates the FindFirst function }
>> Uses SysUtils;
>> Var Info : TSearchRec;
>>     Count : Longint;
>> Begin
>>   Count:=0;
>>   If FindFirst ('*',faAnyFile and faDirectory,Info)=0 then
>>     begin
>>     Repeat
>>       Inc(Count);
>>       With Info do
>>         begin
>>         If (Attr and faDirectory) = faDirectory then
>>           Write('Dir : ');
>>         Writeln (Name:40,Size:15);
>>         end;
>>     Until FindNext(info)<>0;
>>     end;
>>   FindClose(Info);
>>   Writeln ('Finished search. Found ',Count,' matches');
>> End.
>>
>>
>> Lo he utilizado muchas veces y funciona de maravillas.
>>
>>
>> --
>> Try not to become a man of success but rather to become a man of value. *Albert
>> Einstein*
>>
>
>
>
> --
> Try not to become a man of success but rather to become a man of value. *Albert
> Einstein*
>
> _______________________________________________
> 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/48e72e2f/attachment-0002.html>


More information about the Lazarus-es mailing list