FindAllFiles/fr

│ English (en) │ español (es) │ suomi (fi) │ français (fr) │ polski (pl) │ русский (ru) │

Unité: Lazarus fileutil (remplacements UTF-8 pour le code de la RTL et gestion des fichier/répertoire additionnelle).

Voir aussi :

• 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 recherche les fichiers correspondants au masque de recherche dans le dossier SearchPath et ses sous-dossiers si spécifié, puis retourne une StringList avec les noms de fichier résultants.

Le masque peut être un masque simple comme vous pouvez l'utiliser avec les fonctions FindFirst/FindNext, ou il peut consister en une liste de masques, séparés par le point-virgule (;).
Les espaces dans le masque sont traités comme des litéraux.

Exemple:

uses 
...
fileutil
...
var
  PascalFiles: TStringList;
begin
  //No need to create the stringlist; the function does that for you
  PascalFiles := FindAllFiles(LazarusDirectory, '*.pas;*.pp;*.p;*.inc', true); //find e.g. all pascal sourcefiles
  try
    showmessage(Format('Found %d Pascal source files',[PascalFiles.Count]));
  finally
    PascalFiles.Free;
  end;

  Remarque: Si vous voulez utiliser cette fonction dans des programmes en ligne de commande, ajouter une exigence de projet pour LCLBase, qui évitera de tirer toute la LCL.