Difference between revisions of "FindAllFiles/es"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting) |
|||
(6 intermediate revisions by 3 users not shown) | |||
Line 1: | Line 1: | ||
+ | {{FindAllFiles}} | ||
− | Unit: Lazarus [[fileutil]] (UTF-8 | + | Unit: Lazarus [[fileutil]] (reemplazo UTF-8 para código FPC RTL y manejo adicional de fichero/directorio) |
+ | |||
+ | Ver además: | ||
− | |||
* http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/findallfiles.html | * http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/findallfiles.html | ||
* http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/tfilesearcher.html | * http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/tfilesearcher.html | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
function FindAllFiles(const SearchPath: String; SearchMask: String = ''; | function FindAllFiles(const SearchPath: String; SearchMask: String = ''; | ||
SearchSubDirs: Boolean = True): TStringList; | SearchSubDirs: Boolean = True): TStringList; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | + | '''findallfiles''' busca ficheros que coincidan con la máscara de búsqueda en la trayectoria de búsqueda del directorio (SearchPath) 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: | Ejemplo: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
uses | uses | ||
... | ... | ||
Line 29: | Line 31: | ||
PascalFiles := FindAllFiles(LazarusDirectory, '*.pas;*.pp;*.p;*.inc', true); // Encuentra e.g. todos los ficheros fuentes de Pascal | PascalFiles := FindAllFiles(LazarusDirectory, '*.pas;*.pp;*.p;*.inc', true); // Encuentra e.g. todos los ficheros fuentes de Pascal | ||
try | try | ||
− | showmessage(Format('Encontrados %d ficheros fuentes de | + | showmessage(Format('Encontrados %d ficheros fuentes de Pascal',[PascalFiles.Count])); |
finally | finally | ||
PascalFiles.Free; | PascalFiles.Free; | ||
Line 35: | Line 37: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | {{Nota|Si necesita utilizar esta función desde programas de línea de mandatos, entonces añade un requerimiento de proyecto para LCLBase, | + | {{Nota|Si necesita utilizar esta función desde programas de línea de mandatos, entonces añade un requerimiento de proyecto para LCLBase, lo cual no lo pondrá en el LCL entero}} |
− | |||
− | |||
− | |||
− |
Latest revision as of 00:56, 16 February 2020
│
English (en) │
español (es) │
suomi (fi) │
français (fr) │
polski (pl) │
русский (ru) │
Unit: Lazarus fileutil (reemplazo UTF-8 para código FPC RTL y manejo adicional de fichero/directorio)
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) 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 Pascal',[PascalFiles.Count]));
finally
PascalFiles.Free;
end;