FindAllFiles/fr

From Lazarus wiki
Revision as of 07:33, 24 November 2016 by E-ric (talk | contribs) (Created page with "{{FindAllFiles}} Unité: Lazarus fileutil (remplacements UTF-8 pour le code de la RTL et gestion des fichier/répertoire additionnelle). Voir aussi : * http:...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

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 :


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;
Note-icon.png

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.