FindAllFiles/es
From Free Pascal wiki
Unit: Lazarus fileutil (UTF-8 replacements for FPC RTL code and additional file/directory handling)
See also:
- 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 looks for files matching the searchmask in the SearchPath directory and if specified its children and returns a stringlist with the resulting filenames.
The mask can be a single mask like you can use with the FindFirst/FindNext functions,
or it can consist of a list of masks, separated by a semicolon (;).
Spaces in the mask are treated as literals.
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;