FindAllFiles/es

Unit: Lazarus fileutil (UTF-8 replacements for FPC RTL code and additional file/directory handling)

Ver además:

• http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/findallfiles.html
• http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/tfilesearcher.html

function FindAllFiles(const SearchPath: String; SearchMask: String = '';
  SearchSubDirs: Boolean = True): TStringList;

findallfiles busca ficheros que coincidan con la máscara de búsqueda en la trayectoria de búsqueda del directorio (SearchPath)rchPath y sus directorios hijo (si es que se especifica), retornando un stringlist con los nombres de fichero resultantes.

La máscara puede ser una máscara simple como la que se utiliza con las funciones FindFirst/FindNext, o puede consistir en una lista de máscaras separadas por punto y coma (;). Los espacios en la máscara se tratan como literales.

Ejemplo:

uses 
...
fileutil
...
var
  PascalFiles: TStringList;
begin
  //No es necesario crear stringlist ya que la función la crea automáticamente.
  PascalFiles := FindAllFiles(LazarusDirectory, '*.pas;*.pp;*.p;*.inc', true); // Encuentra e.g. todos los ficheros fuentes de Pascal
  try
    showmessage(Format('Encontrados %d ficheros fuentes de Pascals',[PascalFiles.Count]));
  finally
    PascalFiles.Free;
  end;

Nota: Si necesita utilizar esta función desde programas de línea de mandatos, entonces añade un requerimiento de proyecto para LCLBase, which will not pull in the entire LCL